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1. ABSTRACT 


This program (TOG-8) records the required timing and mark 
tracks on a DECtape mounted on the TC01-TU55 DECtape unit. 

The program interacts with you via the ASR-33 Teletype 1 to 
obtain the necessary data for each set of DECtapes to be formatted. 

As soon as one set of tapes is formatted, the program is ready to 
format another set. 

Two full passes are required to completely format each DECtape, 
and up to eight DECtapes may be formatted at a time (assuming that 
the user has eight tape transports). Upon completion of a cycle, 
new tapes may be mounted and formatted as the last, with a 
minimum of operator-program communication. One tape, excluding tape 
setup time, requires two minutes from start to finish. 

2. PRELIMINARY REQUIREMENTS 

2.1 Equipment 

PDP-8 (R) , ASR-33 Teletype, TC01-TU55 DECtape Control. 

2.2 Storage 

TOG-8 requires 2500 registers. 

o 

3. LOADING PROCEDURE 

Load the program into core using the standard Binary Loader. 

4. USING THE PROGRAM 

4.1 Starting Procedure 

a. Key 1000 into the SWITCH REGISTER. Depress LOAD ADDRESS and 
depress START. "DTA?" is printed on the ASR 33. 

Mount the DECtapes to be marked onto the tape transports, with 
just enough turns of tape on the riaht hand reel of each transport 
to provide a grip. Make sure that no two tape units are set to the 
same unit number. Set the RDMK-WRTM-NORMAL switch located on the 
TC01 maintenance control panel to the WRIM position; for each trans¬ 
port to be used, set the WRITE ENABLED-WRITE LOCK switch to WRITE 
ENABLED, and the REMOTE-OFF-LOCAL switch to REMOTE. 

1 Teletype is a registered trademark of the Teletype corporation. 

(R) 

PDP is a registered Trademark of the Digital Equipment Corporation. 
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4.2 Operating Procedures 


The program and operator now converse. The printout "DTA?" is 
asking which DECtape units will be used. The operator types a unit 
number or series of unit numbers, corresponding to the DECtape units 
upon which he has mounted tapes. For instance, if the operator has 
mounted tapes on units 2, 5, 7, and 8, he would type 2 5 7 8 J 
(where J signifies carriage return). Spaces are ignored, so it makes 
no difference if the operator types spaces between the unit numbers. 
Only one specification of a unit is significant, i.e., typing 
225775828^) has the same effect as typing 2 5 7 8 ^ . 

Once the operator has specified the units he wishes to use, the 
program types "DIRECT?" The operator responds by typing MARK,*) or 
MARK XXXX. J . If he types MARK J , the program assumes 201^ words, 
2702g blocks (standard PDP-8 format). Otherwise, XXXX is 
accepted as a decimal number of words per block, and must be 
divisible by 3. Note that typing MARK 384^ will cause the program 
to generate a standard PDP-10 format DECtape (1102^ blocks of 600 g 
words, which is equivalent to 1102g blocks of 200 g words, were each 
word is 36 bits rather than 12 bits). 

The program now types "XXXX WORDS, YYYY BLOCKS OK? (YES OR NO)." 
This serves as a final check for block count. XXXX and YYYY are 
octal values representing the final outcome of a formula solved by 
the program, determining the number of blocks that may be written on 
a DECtape knowing the number of words. If a NO J answer is given, 
the program reverts to "DIRECT?" Otherwise (if YES J ), the tape on 
the first unit specified begins to move. 

Once all of the tapes specified have been marked, the printout 
"SET SWITCH TO NORMAL" appears. Then the operator returns the 
"RDMK-WRTM-NORMAL" switch to NORMAL, and strikes the RETURN key on 
the ASR-33, starting the second pass. Note that during the second 
pass with multiple DECtape units, as soon as one tape stops and the 
next tape starts, the first tape is completed and may be replaced 
with a fresh tape in preparation for recycling. 

The program continues by itself until completed, at which time 
the "DIRECT?" printout occurs. Typing "SAME J " repeats the entire 
process with the original constants. The new DECtapes must be 
mounted and ready to write timing and mark tracks before "SAME j )" is 
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typed. Also, in response to "DIRECT?", typing "RDR J " causes the 
printout of the unit numbers of the DECtapes and the last twelve 
block numbers; "RDF^ " causes the printout of the unit numbers and 
the first twelve block numbers; and "RESTART^ " returns the program 
to "DTA?" Unit numbers are printed as "NQ00 M , where N is the unit 
number (0 means DECtape unit 8)• If the ION lamp on the PDP-8 
console is lit, typing "CONTROL C" causes the program to restart at 
"DTA?" 


Following are several examples of successful operation. The under¬ 
lined statements are printed by the program. ALL operator responses 
should be followed by a carriage return. 


a. Create a standard tape on unit 4. 
DTA? 4 

DIRECT? MARK 

0201 WORDS, 2702 BLOCKS.OK? YES OR NO 
YES 

SET SWITCH TO NORMAL 
DIRECT? 


b. Create 16 standard PDP-10 format tapes - eight at a time, on 
units 1-8. 


DTA? 12345678 
DIRECT? MARK 384 

0600 WORDS, 1102 BLOCKS OK? YES OR NO 
YES 

SET SWITCH TO NORMAL (USER TYPES ) ) 
DIRECT? SAME 

SET SWITCH TO NORMAL (USER TYPES ) ) 
DIRECT? 


4.3 Error s 

4.3.1 Errors Typed to "DTA?" and "DIRECT?" - Revert back to "DTA?" 
or "DIRECT?" 

4.3.2 Error Messages for Response to MARK XXXX - 

A character in XXXX is not 0-9. 

XXXX cannot be divided evenly by 3. 

The number of words plus 15 exceeds 7777^. 
The number of blocks generated by XXXX 
exceeds 7777g. 


NOT DECIMAL 
NOT DIVISIBLE BY 3 
TOO MANY WORDS 
TOO MANY BLOCKS 
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4.3.3 Error Messages for Response to YES (After message - revert back to 
"DTA? ") 


SETUP? Indicates an error in the DEGtape setup - 

Unit in WRITE LOCK 
Nonselectable unit 
Switch not in WRTM position 

4.3.4 Error Messages for Marking and Verifying a Tape 


XXXX SHOULD BE YYYY BLK ERROR PHASE X 

XXXX SHOULD BE YYYY DATA ERROR PHASE X 

END TAPE ERROR PHASE X 

MARK TRACK ERROR PHASE X 

PARITY ERROR PHASE X 

SELECT ERROR PHASE X 

TIMING ERROR PHASE X 

LAST INT NOT END ZONE (see 4.4) 


4.4 Recovery 


Although error should cause doubt concerning the entire process, 
restarts may be made by phases (except when in phase 0). Restart the 
phase by typing "RETRY " Type "RESTART" to return to "DTA?" 


PHASE 0 
PHASE 1 
PHASE 2 
PHASE 3 


MARK TRACK WRITE 

WRITING LAST REVERSE BLOCK NUMBER FORWARD 
WRITING BLOCK NUMBERS AND DATA IN REVERSE 
READING AND CHECKING BLOCK NUMBERS AND DATA 


An error that should be considered catastrophic is LAST INT NOT 
END ZONE. This indicates that between the last (or first) block num¬ 
ber and the end zone, something caused an interruot (DTF). 


The entire program may be restarted at 1000^ any time. 


5. DETAILS OF OPERATION AND STORAGE 

The program writes timing and mark tracks on a DECtape, then in¬ 
serts block numbers and parity correct information, checking the re¬ 
sults of all operations. 

The number of block frames to be written is a function of the 
number of words per block. The formula 

blocks per tape = j _ 12 . 0 80 + 2 

NW+15 

4 





where NW equals the number of words to be written, is used by the 
program to compute the number of blocks, but is adjusted by the pro 
gram to provide the standard PDP-8 format of 129 (12-bit) words,(1744 
blocks, and standard PDPln format of 128 (36-bit) words57B~blocks. 


-1 474 


Two full passes are required to mark and verify a tape. 


Pass 1 Marks the tape forward, inserts block numbers 

and parity correct data in reverse. 

Pass 2 Reads and checks block numbers and data for¬ 

ward and reverse. 


& vP0.r-‘' / • < 

/! 

r 7 o 

3^3 " I- :•< 


During the forward direction of the first pass, the TC01 is 
switched into WRITE TIMING AND MARK TRACKS, CONTINUOUS MODE, FORWARD. 
The program manipulates data to be written by monitoring the word 
count register and the DTF, (DECtape flag). Initially, ten feet of 
end-zone code is written, and abuttina the end zone are about two 
standard block lengths of interblock sync. To the TC01, this inter¬ 
block sync acts as no operation, but guarantees that at turn-around 
time, block 0 is read first (or 2701 if turning out of the forward 
end zone). Now the remainder of the tape is written creating block 
frames. The number of such frames is determined by the above formula. 
Upon completion of the block framing, another extended interblock sync 
zone is written as well as ten feet of end zone. 


Pass 1 forward is now complete (timing and mark tracks are 
written). The tape is ordered to MOVE in reverse for three seconds, 
thus moving it out of the end zone and onto the marked section. The 
tape is once again moved forward, and the last REVERSE BLOCK NUMBER 
is written until the forward end zone is sensed. Now the tape is 
turned out of the end zone in SEARCH, and the program waits for a 
block interrupt (first reverse block number). When the DTF rises, 
the TC01 is switched into WRITE ALL, CONTINUOUS, REVERSE? thus the 
system is synchronized and all block numbers and data are written 
until the forward end zone is sensed. This completes the marking 
and blockina of the taps. Pass 2 in CONTINUOUS MODE checks the data 
and block numbers to be certain they are correct. When multiple DEC¬ 
tape units are specified, Pass 1 forward is completed for each tape 
before Pass 1 reverse is begun. 
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5.1 Theory 


The program flow is based on the following detailed description 
of the bit structure on the mark track, followed by a description of 
block and data writincr. 

a. Install the tape with enough turns to create a pull. The re¬ 
verse end zone requires a sequence of three data words for its pattern. 

4044 

0440 

4404 

In the mark track the words appear as 101101101101 (5555 0 ). The re- 

o 

verse end zone should cover 10 feet of tape. Write the above three 
words 4096 ^q times. 

b. 100 interblock sync (see c.). 

c. Interblock sync. Three words, of interblock sync should imme¬ 
diately follow each block. 

0404 

0404 

0404 

In the mark track the words appear as 010101010101 (2525 0 ). 

o 

d. The forward block mark and reverse guard require three words. 


0404 

4004 

4040 


which appear on the mark track as 010110011010 (2632 ), 

if 8 

block 

number 

frames 
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e. The lock, mark, reverse checksum, reverse final, and reverse 
prefinal consist of six PDP-8 memory words. 


0040 

0000 

4000 

0040 

0000 

4000 


These words appear on the mark track as 


001000001000001000001000 
... 


cioioioio.) 

o 

Half 2nd data word 

First data word 
(PDP-8) 

Reverse checksum 


f. Mark track code for data is generated by 


4440 

0044 

4000 


These three words appear as 111000111000 (7070^) and are repeated 41^ 
times for a 129 word block. 


g. The prefinal, final, checksum, and reverse lock consist of six 
PDP-8 words. 


4440 

4444 

4044 

4440 

4444 

4044 


These words appear in the mark track as 


111011111011111011111011 (73737373 Q ) 

V.— xi _._ u-< o 

^-'Checksum under these bits 

----Last PDP-8 data word 

--Half a data word 
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h. The guard and reverse block number consist of three words 


4040 

0440 

0404 


which appear as 10100 11001 01 (5145 ) 

L—-reverse block number 


i. Generate 2702 block patterns. Repeat c throuqh h, 2702 

o o 

times. 


j. 100 more interblock syncs (see c. ) . 


k. The end zone pattern consist of three words 


0400 

4004 

0040 


which appear as 010010010010 (2222 g ), Repeat these three words 4096 

times. 


5.2 Format Block Numbers and Data 


Once the mark track has been prepared for each tape specified 
block numbers and data must be written. 

a. With tape in the forward end zone reverse tape for a few 
seconds to move the head onto the mark track. 

b. Go forward in SEARCH waiting for a DTF. 

c. When the DTF rises, switch to READ DATA with the word count 
register equal to one less than the total number of words in the 
block. When the word count goes to zero, write 12^^ words (see figure 
1) including block number (last reverse) in WRITE ALL. When the word 
count goes to zero, go back to step c. 

d. Continue this process until the forward end zone is sensed. 

e. Reverse tape now in SEARCH and wait for the DTF. When the 
DTF rises, switch to WRITE ALL CONTINUOUS. The system remains in 
WRITE ALL. 
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f. Write three words. 


VI 

0000 


V2 

0000 


V3 

0077 

77 = forward checksum 


When the word count register goes to zero, reload it with one less 
than the total words to be written and set the current address counter 
to the address of three words of all sevens. Monitor the word count 
until it goes to zero. Keep resetting the current address counter to 
the address of three words of all sevens. 


When the word count goes to zero, write the twelve words (fiqure 
2) shown below and return to write the three words again. Continue 
this process until the reverse end zone is reached. 


Core 


VI 

V2 


Direction of write forward 


0000 
0000 
0000 v 
0000 
OOH 
£6 77 
7777 
7700 

0000 f 
0000 
0000 
0000 


Assuming that the last block number is 
1763, VI and V2 constitute the last re¬ 
verse block number. When read in reverse, 
4106 becomes 1763. Remember that a 1 
written forward becomes a 0 when read 
in reverse, and a 0 becomes a 1. (The 
trailing 7's are necessary so that the 
36 bit block number used on the PDP-10, 
will be read in reverse with leading 0’s). 


Direction of read reverse 


Figure 1 Last Reverse Block Number as Written Forward 


Core 

CC00 

0000 

0000 

0000 

VI 00AL 

V2 £6 77 

7777 
7700 
0000 

V3 0017 

V4 £200 

0000 


CC=reverse checksum should be 00 


VI and V2 comprise the forward block 
number. V3 and V4 comprise the reverse 
block number. Therefore, when VI and 
V2 are read forward, the resulting block 
number is 1763. Remember that a 1 writ¬ 
ten in reverse is read forward as a 0, 
and a 0 as a 1. V3 and V4 are read in 
reverse as written, 1762. 


Forward Block Number Reverse Block Number 




VI 


V3 


--) 

#1763 


V2 


V4 


#1762 

Direction of Wr± J 

be (Reverse) 


Figure 2 Block Numbers Written in Reverse 
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/DEC-0 



S-EUFB PDP-8 DECTaPE FORMATTER PAL10/3 Vl«l 15-MAY-70 14103 PACE g 

/COPYRIGHT 1970 DIGITAL EQUIPMENT CORP. 

/MAynArDi mass. 

/REVISED MARCH 1970 

/ TOG-8 TO MARK and check POP-0 dectape 

/this PROGRAM writes TIMING aNO MARK TRACKS ON 
/DECTAPE MOUNTED ON THE TC01-TU55 TAPE CONTROL UNIT, 



0310 


xl«10 


0011 


X2*U 



/SYMBOL 

TABLE AUGMENTATION 


6761 


DTRA*6761 


6762 


DTCA»6762 


6 7 6 4 


DTXA*6764 


6771 


OT SF*677l 


6772 


0TRB»6772 


6774 


DTlB®6774 


6766 


DTCX*6766 



/SET U 

FOR THE LOGIN FEATURE 


0 000 


»0 

0 0 0 3 

00 0 3 


e 

0001 

5402 


JMP I .*1 

0302 

L'54 3 


CONC /CONTROL "C" 



/working locations 


ZSZ" 


<*20 

0 0 2 0 

0 2 0 3 

W1» 

0000 

0 0 21 

0 0 3 0 

W 2 a 

0000 

0322 

ki 0 3 -0 

W3_» 

0000 

0023 

0 00.1 

W 4 a 

0000 

0024 

00 0 0 

W 5 , 

0000 

0025 

0 0 0 0 

W 6 i 

0000 

002^> 

00 00 

blocks, 

0000 

0027 

0: 0 0 0 

blqcka, 

0000 

0033 

0 0 0 0 

D 1 A , 

0000 

0031 

0 0 14 0 

£RX, 

0000 

0032 

0000 

PhAS£ » 

0000 

0033 

0 000 

TOTAL* 

0000 

0034 

000'" 

VAR1, 

0000 

0035 

0 3 0 

V AR2, 

0000 



/DEC-00-EUFB PDP-8 OECTAPE FORMATTER PAL10/3 V 141 15-MAY-70 16|03 PAGE 3 

/CONSTANTS 


0036 

0001 

Cl, 

0001 

003^ 

0002 

C2. 

0002 

0040 

0003 

03, 

0003 

0041 

0004 

c-t, 

0004 

0042 

0017 

C00l7> 

0017 

0043 

0070 

0/070, 

0070 

0044 

0077 

C0077 > 

0077 

0045 

0007 

C/007- 

0007 

0046 

0030 

C0030, 

0030 

0047 

0400 

00400, 

0400 

0050 

0700 

C0700, 

0700 

0051 

0203 

0203, 

0203 

0052 

0201 

0201, 

0201 

0053 

0210 

C210, 

0210 

0054 

0260 

0260» 

0260 

0055 

0261 

0261, 

0261 

0056 

0267 

C267, 

0267 

0057 

0270 

0270, 

0270 

0060 

0271 

C271, 

0271 

0061 

0277 

0277, 

0277 

0062 

1000 

01000, 

1000 

0063 

1623 

C1620, 

1620 

0064 

7000 

07000, 

7000 

0065 

7700 

07700, 

7700 

0066 

7714 

07714, 

7714 

0067 

7761 

07761- 

7761 

0070 

7772 

07772, 

7772 

0071 

H75 

07775, 

7775 

0072 

0215 

CRCOQ, 

0215 

0073 

0313 

letk, 

0313 

0074 

0212 

lfcod » 

0212 

0075 

nib 

M2, 

»2 

0076 

7775 

M3? 

-3 

0077 

7774 

M4, 

*4 

0100 

7772 

M6 } 

.6 

0101 

nn 

M7 f 

-7 

0102 

7764 

M14, 

"14 

0103 

7634 

Ml44, 

-144 

0104 

7530 

M300a 

-300 

0105 

0240 

SPCQD * 

0240 



15-MAY-70 


/OEC-08-CUFB 


pdr-8 dectape formatter palib/ 3 vi.i 
/interpage links 


i6|03 PAGE 4 


0106 

0020 

ADW2 . 

W2-1 

0107 

0021 

ADW3. 

W3-1 

0110 

2452 

8 ADD . 

BUFFER-1 

0111 

2453 

8FR, 

buffer 

0112 

7755 

C A > 

7755 

0113 

0310 

COMPARr 

compre 

0li4 

0000 

FCON . 

0000 

0115 

1055 

IT# 

INIT1 

0116 

0526 

forma # 

FORM-1 

0117 

0527 

FORMS# 

FORM 

0120 

0400 

QU1, 

Q1 

0121 

0410 

QU2, 

02 

0122 

0422 

Q U 3, 

03 

0123 

0434 

QU4, 

Q4 

0124 

0454 

MESS. 

MES 

0125 

0633 

MWAIT# 

MINI 

0126 

1000 

STX, 

START 

0127 

0613 

TURN. 

TRN 

0130 

0334 

TYQCT# 

TYCT 

0131 

0200 

TYPE# 

mesage 

0132 

0256 

typin# 

T YPN 

0133 

0600 

WAIT. 

STALL 

0134 

7754 

WC, 

7754 
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/type the character 

IN 

the AC ON THE KEYBOARD PRINTEI 

0135 

0000 

rsend» 

0000 




0136 

6046 


TLS 



/LOAD AND PRINT, CLEAR FLAG 

0137 

6041 


TSF 



/WAIT FOR CONFIRMATION 

0140 

5137 


JMP 

9 * 1 


/endlessly 

0141 

6042 


TCF 



/clear the flag anyway 

0142 

5535 


JMP I 

RSEND 





/print 

A 

ON THE 

keyboard typer 

0143 

0144 

QU, 

,n 




0144 

6002 


I OF 



/KILL LOG ANO CONTROL C FCTN 

0145 

7300 


CIA 

CLL 


/C(AC>+C(L>»0 

0146 

1061 


tad 

C277 


/ " ? " 

0147 

4135 


JMS 

RSEND 


/TYPE THE CHARACTER 

0;.50 

5551 


jMp I 

, *1 


/RESTART 

0151 

1061 


I N I T 






/DECTAPE CONTROL WORDS 


0152 

kjW* 

QT003U, 

0030 




015 3 

C 06 'J 

D’0060, 

0060 




01 5 4 

107'” 

D T 2070, 

0070 




0155 

110 7 

D T 0100, 

0100 




0x56 

. 13 d 

DT0130, 

0130 




015 7 

0140 

DT0140, 

0140 




0^60 

i20? 

QT0200, 

0200 




0161 

0 21- 

0 i' 0 210 i 

0210 




0162 

1360 

O' 0360, 

0360 




0: 63 

0510 

D'0510, 

0510 




0164 

0600 

DT0600, 

0600 




0165 

e 61 e 

O' 0610. 

0610 






/SOME SPECIAL 

LINKS 



0166 

2475 

aqba. 

2475 




0167 

2476 

AOWA, 

2476 




0170 

2477 

ADWAB, 

2477 






/CONSTANTS for FORMULA 

TRANSLATION SECTION 

0171 

0172 

bincon, 

.♦1 




0172 

0001 


0001 




0173 

0012 


0012 




0174 

0144 


0144 




0175 

1750 


1750 





PACE 3 
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3200 *200 /PAGE 1 

/TYPE CANNED MESSAGES.,,. 
/thanks TO DIGITAL 8-18-U 


0200 

0 000 

mesage, 

0 



0201 

6002 


I OF 


/KILL LOG AND CONTROL FUNCTION 

0202 

7240 


CLA 

CMA 

/SET C(AC)*-1 

0203 

1200 


tad 

MESAGE 

/ADD LOCATION 

0204 

3010 


OCA 

10 

/AUTO INDEX REGISTER 

0205 

1410 


TAD I 

[ 10 

/FETCH FIRST WORD 

0206 

3217 


DCA 

MSRGHT 

/SAVE IT 

0207 

1217 


TAD 

MSRGHT 


0210 

7012 


RTR 



02H 

7012 


RTR 


/ROTATE 6 BITS TO THE RIGHT 

0212 

7312 


RTR 



0213 

4 220 


JMS 

TYPECH 

/TYPE IT 

0214 

1217 


TAD 

MSRGHT 

/GET DATA AGAIN 

021 5 

4220 


JMS 

TYPECH 

/type right half 

0216 

5235 


JMR 

MESAGE *5 

/CONTINUE 

0217 

IK100 

msrght. 

0 


/TEMPORARY storage 

0220 

3:i33 

typech* 

0 


/TYPE CHARACTER IN C(AC) 6 -U 

0221 

14 0 4 4 


AND 

C0077 


0222 

7453 


SNA 


/IS IT end OF MESSAGE? 

0223 

5413 


JMP 3 

[ 10 

/YESI EXIT 

0224 

1251 


tad 

M40 

/SUBTRACT 40 

0225 

7 5 3 ' 1 


SMA 


/<407 

0226 

5231 


JMR 

.♦3 

/NO 

0227 

1252 


TAD 

C340 

/YESI ADD 300 

0230 

5244 


JMP 

MTP 

/TO COOES <40 

0231 

1076 


tad 

M3 

/SUBTRACT 3 

0232 

744 1 


S2A 


/IS IT HERO? 

0233 

5236 


JMP 

.♦3 

/NO 

0234 

1253 


tad 

C212 

/YESl CODE 43 IS 

0 " 3 5 

5244 


JMP 

MTP 

/LINE-FEEO (212) 

0236 

1075 


TAD 

M2 

/SUBTRACT 2 

0237 

7443 


S2 A 


/is it hero? 

0 ? 4® 

5243 


JMP 

»■*■3 

/NO 

0241 

1254 


TAD 

C215 

/YESI CODE 45 IS 

0242 

5244 


JMR 

MTP 

/CARRIAGE RETURN (215) 

0243 

1255 


TAD 

C245 

/ADD 200 TO OTHERS >40 

0244 

6046 

MTP, 

TLS 


/TRANSMIT CHARACTER 

0245 

6041 


TSF 


/WAIT FOR THE FLAG 

02 4 6 

5245 


JMP 

.-1 

/NOT SET YET 

0247 

7203 


CLA 


/SET 1 CLEAR CUC) 

0250 

5623 


JMP ] 

[ TYPECH 

/RETURN 



/CONSTANTS 



0251 

7 7 4 3 

M 4 0, 

-40 



0252 

0343 

C340, 

340 



0253 

0212 

C212# 

212 



0254 

0215 

C215 $ 

215 



0255 

0245 

C2 45» 

245 






/DEC-@§-EUFB 


PDP-8 OECTAPE 

FORMATTER 

PAL10/3 V141 15-MAY-70 1ft1 33 PAGE 7 



/ROUTINE WAITS 

i UNTILL A 

COMPLETE MESSAGE HAS BEEN ENTERED 



/SIGNIFIED BY 

A CR. 


0256 

0000 

TYPN. 0 



0257 

6002 

I or 


/KILL THE LOG AND CONTROL C FUNCTION 

0260 

6032 

KCC 


/CLEAR AC* KEYBOARD FLAG 

0261 

1110 

tad 

badd 

/get buffer address 

0262 

3020 

DCA 

HI 

/STORE FOR THE CHARACTER STRING 



/READ AND RESPOND WITH 

the character 

0263 

2020 

NTYRTN, I S2 

n 

/normal RETURN, INCREMENT BUFFER 

026^ 

6031 

KSF 


/WAIT FOR KEYBOARD 

0265 

5264 

JMP 

r "i 

/FLAG TO RAISE 

0266 

6@36 

krb 


/GOT FLAG* RESET IT. SET CHARACTER 

@267 

4135 

JMS 

R8EN0 

/SEND CHARACTER BACK 

027@ 

3420 

DCA I 

N1 

/LOAD CHARACTER INTO BUFFER AREA 



/IF CHARACTER 

IS A SPACE, IGNORE IT 

@271 

1420 

TAD I 

HI 

/CHARACTER INTO THE AC 

0272 

7041 

CIA 


/SUBTRACT FROM SPACE CODE (240) 

02^3 

1105 

TAO 

SRCOO 

/COMPLETE COMPARISON 

0274 

7650 

SNA 

CIA 

/WAS IT A SPACE? 

0275 

5264 

JMP 

ntyrtn*i 

/YES 1 DO NOT iNCREMENT BUFFER 



/IF CHARACTER 

IS A CR* 

EXIT FROM ROUTINE 

0276 

1420 

tad I 

HI 

/CHARACTER TO AC 

0277 

7041 

CIA 


/SeT AC TO SUBTRACT CR (215) 

0300 

1072 

TAO 

CRCOO 

/COMPLETE COMPARISON 

0301 

7640 

SZA 

CLA 

/WAS IT CR? 

0302 

5263 

JHP 

NTYRTN 

/NO: INCREMENT BUFFER * WAIT 



/CARRIAGE RETURN FOUND, 

EXIT FROM ROUTINE 

0303 

1074 

tad 

LFCOD 

/GIVE KEYBOARD LINE FEED 

0304 

4135 

JHS 

RSEND 

/EXECUTE LINE FEED 

0305 

7300 

CU 

CLL 

/EXIT WITH C(ACC) ♦ AND C<L>«0 

0306 

6001 

ION 


/RESET LOG AND CONTROL C FUNCTION 

0307 

5656 

JHP I 

TYPN 

/RETURN TO CALL 



/DEC-0I-CUFB 


PDP-8 DECTAPE FORMATTER PAL10/3 V141 


15-MAY-70 


1*103 PACE e 


/compare a string OF CHARACTERS in "BUFFER" 
/TO A CHARACTER string after a jms in ascii 


0310 

0000 

COMPRE, 0 




03H 

7240 

cu 

CMA 

/C(AC > *7777 


0312 

1310 

TAD 

COMPRE 

/SUBTRACT 1 

FOR INDEX REG 1 

0313 

3013 

DCA 

II 

/AUTO INDEX 

1 SET TO CHA STRING 

0314 

1110 

TAD 

badd 

/AUTO INDEX 

2 SET TO BUFFER-1 

0315 

3011 

DCA 

u 

/LOAD X2 



/COMPARE CHARACTERS till ONE DOESN'T COMPARE OR TILL 
/A 0 IS FOUND IN XI, IF OK, RETURN TO TWO PLUS THE 
/2ERO, IF BAD ONE PLUS 


0316 

1410 


tad 


XI 

/character from program 

0317 

7141 


CIA 



/to SUBTRACT FROM 

0320 

1411 


tad 


X2 

/CHARACTER in buffer 

0321 

7640 


S2 A 


CIA 

/COMPARE? 

0322 

5330 


JMR 


CERR 

/NO I RESYNC FOR non compare 

0323 

1410 


tad 


XI 

/YESl CHECK FOR GOOD EXIT 

0324 

7440 


S2A 



/IF 0, EXIT GOOD 

0325 

5317 


JMP 


r "6 

/NO: TEST NEXT CHAACTER 

0326 

101 ? 


I Si 


XI 

/♦I tO X1ITOTAL 2 FROM THE 

0327 

5410 


JMP 


XI 

/♦I TO XI, EXIT 



/ERROR 

FOUND 


RESYNC 

AND EXIT NO COMPARE 

0330 

1410 

cerr. 

taq 


XI 

/character from program 

0331 

7640 


S2A 


CLA 

/is this EXIT KEY? (0000) 

0332 

5330 


JMP 


.-2 

/no: get NEXt 

0333 

5410 


JMP 


XI 

/YESl EXIT, NOT COMPARE 



/DEC-08-EUFB 


PDP-8 OECTaPE FORMATTER PAL10/3 V141 


15-MAY-70 


16|03 PAGE 9 


/type ONE FOUR CHARACTER OCTAL WORD GIVEN TO THE 
/ROUTINE VIA C(ACC), C(ACC >=0 ON EXIT 


0334 

0000 

tyct* 

s 



0335 

3374 


OCA 

TWl 

/STORE WORD GIVEN 

0336 

1374 


TAD 

TWl 

/TO C(ACC) AGAIN 

0337 

7012 


RTR 



0340 

7012 


RTR 


/6 BITS GIGHT 

0341 

7012 


RTR 



0342 

3371 


OCA 

TYCT1+2 

/SAVE ROTATED VALUE. 1ST TWO 

0343 

1371 


tad 

TYCT1*2 

/TO C(ACC) AGAIN 

0344 

0045 


AND 

C0007 

/ISOLATE secono character 

0345 

1375 


tad 

C6060 

/convert TO ASCII 

0346 

3370 


DCA 

TYCTl+1 

/STORE AS FIRST PARTIAL 2 

0347 

1371 


TAD 

TYCT1*2 

/ROTATED VALUE STORED ABOVE 

0350 

7006 


RTL 



0351 

7004 


RAl 


/3 BITS LEFT 

0352 

0050 


AND 

C0700 

/ISOLATE FIRST CHARACTER 

0353 

1370 


TAD 

tyctiu 

/CONVERT 1ST TO ASCII 

0354 

337'* 


OCA 

tycti*i 

/1ST AND 2ND CHARACTERS READY 

0355 

1374 


tad 

TWl 

/OR IGIONAL WORO 

0356 

k5 0 4 5 


AND 

C0007 

/ISOLATE 4TH CHARACTER 

0357 

1375 


tad 

C6060 

/CONVERT 4 TH TO ASCII 

0360 

3371 


DCA 

TYCTl+2 

/STORE 4TH FOR A MOMENT 

0361 

1374 


TAD 

TWl 

/ORIGIONAL WORD 

0362 

7006 


RTL 



0363 

7004 


RA|_ 


/POSITION IT 3RD CHARACTER 

0364 

0050 


and 

C0700 

/ISOLATE 3RD CHARACTER 

0365 

1371 


tad 

TYCT1+2 

/CONVERT TO ASCII 

0366 

3371 


DCA 

T yCTI + 2 

/CONVERSION COMPLETE 

0367 

4^31 

TYCT1, 

' JMS I 

type 

/TYPE THE FOUR CHARACTERS 

0370 

0 0 0) 


0 


/FIRST 2 

0371 

0000 


0 


/SECOND 2 

0372 

000 '. - 7 


0 


/kill key 

0373 

5734 


JMP I 

tyct 

/EXIT FROM ROUTINE 



/SOME 

constants for the 

ROUTINE 

0374 

0000 

TWl, 

0000 



0375 

6060 

C 606 0i 

> 6060 





/QEC-&B-EUFB 


pop-8 dectape formatter pauib/ 3 vi<i 


15-MAY-70 


16|03 pACE 10 


0400 »400 

/various error messages 

/"NOT DECIMAL” 


0400 

4531 

Q 1 r 

JMS I 

type 

0401 

1617 


1617 

/NO 

0402 

2440 


2440 

/T 

0403 

0405 


0403 

/DE 

0404 

0311 


0311 

/Cl 

0405 

1501 


1501 

/MA 

0406 

1400 


1400 

/l 

0407 

5247 


JMP 

QUX 



/’’TO 

MANY WORDS” 

0413 

4531 

Q 2 * 

JMS I 

type 

0411 

2417 


2417 

/TO 

0412 

1740 


1740 

/O 

04 l3 

1501 


1501 

/MA 

0414 

1631 


1631 

/NY 

0 4 15 

4227 


4027 

/ W 

0 4 16 

1722 


1722 

/OR 

0417 

0423 


0423 

/os 

0423 

0 00 0 


0000 

/00 

0421 

5247 


JMP 

QUX 



/’’TO 

MANY SLOCKS" 

0422 

4531 

Q3 9 

JMS I 

TYPE 

0423 

2417 


2417 

/TO 

04 2 4 

1743 


1740 

/O 

0425 

1501 


1501 

/MA 

0426 

1631 


1631 

/NY 

0427 

4002 


4002 

/ 0 

0430 

1417 


1417 

/L0 

0431 

0313 


0313 

/CK 

0432 

2303 


2300 

/S0 

0433 

5247 


JMP 

QUX 



/’’NOT 

DIVISIBLE BY 3 

0434 

4531 

Q4 » 

JMS I 

type 

0435 

1617 


1617 

/NO 

0436 

2440 


2440 

/T 

0437 

0411 


0411 

/DI 

0440 

2611 


2611 

/VI 

04 41 

2311 


2311 

/si 

0442 

0214 


0214 

/BL 

0443 

0540 


0540 

/E 

0444 

0231 


0231 

/BY 

0445 

4063 


4063 

/ 3 

0446 

0000 


0000 

/00 

0447 

4531 

QUX, 

JMS I 

type 

0450 

4345 


4345 

/CR+LF 

0451 

0000 


0000 

/END 

0452 

5653 


JMP I 

.*1 



✓DEC-08-EUFB POP-8 DECTAPE FORMATTER PA110/3 V141 U-MAY-70 16(03 PAGE li-J 

0433 1061 INIT 



/OEC-0I-CUFB PDP-8 DECTAPE FORMATTER PAL10/3 V141 13-MAY-70 16|03 PACE li 

/THE CODING BELOW CREATES THE BLOCK NUMBER 
/CONVERSION PRIOR TO THE TAPE WRITE. 


0454 

0000 

ME5. 0 



0455 

3023 

OCA 

W4 

/BLOCK NUMBER GIVEN IN AC 

0456 

1023 

TAD 

W4 

/REStORE TO AC AGAIN 

0457 

7040 

CM A 


/complemented 

0460 

7006 

RTL 



0461 

7004 

ral 


/LEFt 3 

0462 

3024 

OCA 

W5 

/TEMP SAVE 

0463 

1024 

tad 

W5 

/TO AC AGAIN 

0464 

0064 

AND 

C7000 

/ISOLATE HIGH CHA 

0465 

3334 

OCA 

V2 

/FORWARD BLOCK NUMBER 

0466 

1024 

TAD 

W5 

/SHIFTED VALUE 

0467 

0043 

AND 

C0070 

/ISOLATE 6.7,8 

0470 

3333 

OCA 

VI 

/FORWARD BLOCK NUMBER 

0471 

1023 

TAD 

N4 

/ORIGIONAL SET 

0472 

7040 

cma 


/UPSIDE DOWN 

04?3 

7012 

RTF! 



0474 

7010 

rar 


/RIGHT 3 

0475 

3024 

OCA 

m 

/TEMP SAVE 

0476 

1024 

tad 

W9 

/TO AC AGAIN 

0477 

00.30 

and 

€1700 

/ISOLATE 3,4,5 

0500 

1334 

tad 

V2 

/COMBINE FORWARD 8L0CK NUMBER 

0501 

1044 

TAD 

C0077 


0502 

3334 

OCA 

V2 

/1/2 COMPLETE 

0503 

1024 

TAO 

W3 

/SHIFTED VALUE 

0504 

0045 

AND 

C0007 

/ISOLATE 9, 18,11 

0505 

1333 

TAD 

VI 

/COMBINE MITH BN 

0506 

3333 

OCA 

VI 

/FORWARD BLOCK NUMBER COMPLETE 



/CONVERT REVERSE BLOCK 

NUMBER 

0507 

7040 

cma 


/-I TO GIVEN BLOCK * 

0510 

1023 

TAO 

W4 

/ORIGIONAL BLOCK # 

0511 

3024 

OCA 

H5 

/TEMP SAVE 

0512 

1024 

TAO 

N9 

/TO AC AGAIN 

0513 

7012 

RTR 



05i4 

7012 

RTR 


/6 RIGHT 

0515 

7012 

RTR 



0516 

0044 

ANO 

C0077 

/isolate low 

0517 

3340 

OCA 

V3 

/HIGH REVERSE 

0520 

1024 

TAD 

W5 

/COMPLEMENT ORIGIONAL -1 

0521 

7006 

RTL 



0522 

7006 

RTl 


/6 LEFT 

0523 

7006 

rtl 



0524 

0065 

AND 

C7700 

/ISOLATE HIGH 

0525 

3341 

OCA 

V4 

/REVERSE COMPLETED 

0526 

5654 

JMP 

I MCS 




/DEC-0I-EUFB 


pdp-8 dectape formatter palib/3 viai is-may-tb isjgs pase it 
/form used TO write 12 oata words for block numbering 


0527 

0000 

FORM# 

s@00 

0530 

0000 


0000 

0531 

0000 


0000 

0532 

0000 


0000 

0533 

0000 

VI# 

0000 

0534 

0000 

V2, 

0000 

0535 

7777 


7777 

0536 

7700 


7700 

0537 

0 000 


0000 

0540 

0000 

V 3 • 

0000 

0541 

0000 


0000 

0542 

0 0 00 


0000 



/DEC-08-EUFB POP-8 DECTAPE FORMATTER PAL10/3 V141 13-MAY-70 16|03 PAGE 13 

//this routine allows keyboard interruption 
/for logging on the keyboard, or for a major 
/clear in the program, by hitting "control C" 

/a system restart will occur. 


0543 

6041 

CONC, TSF 


/IS THE PRINTER FLAG ON? 

0544 

5346 

JMP 

.♦2 

/NO, CHECK READER 

0545 

6042 

TCF 


/YESI RESET IT 

0546 

6031 

KSF 


/IS THE REAOER FLAG ON? 

0547 

5364 

JMP 

RSYC- 

2 /NO: RETURN TO SEQUENCE 



/UK. CHECK FQF 

1 EITHER 

LOG OR CONTROL C, 

0550 

3254 

DCA 

MES 

/SAVE C(AC) 

0551 

7004 

RAL 


/SAVE THE LINK 

0552 

3374 

OCA 

RSYC*6 

/FOR LOGGING 

0553 

6036 

KRB 


/GET CHARACTER FROM KEYBOARD 

0554 

6046 

TLS 


/RETURN CHARACTER 

0555 

7041 

CIA 


/TO SEE IF 

0555 

1051 

tad 

C203 

/"CONTROL C" 

0557 

7650 

SNA 

CLA 

/IS IT? 

0560 

5366 

JMP 

RSYC 

/YESI RESYNC THE PROGRAM 

0561 

1374 

tad 

RSYC*6 

/REStORE THE LINK 

0562 

7 010 

rar 


/FOR EXIT. 

0563 

1254 

taq 

MES 

/THE AC TOO 

0564 

6001 

ION 


/INTERRUPT ON 

0565 

5 4 0 0 

JMP I 

0 

/RETURN 



/^ESYNC THE SYSTEM TO 

START 

0565 

6041 

RSYC. TSF 


/HA IT FOR FLAG 

0567 

5366 

JMP 

.-1 

/on last sendoff 

0570 

4531 

JMS I 

type 


0571 

2205 

2205 

/RE 


0572 

2331 

2331 

/SY 


0573 

1603 

1603 

/NC 


0574 

0 0 0 0 

0000 

/END 


0575 

1030 

tad 

OTA 

/TO KILL EXISTING TAPE MOTION 

0576 

6766 

dtcx 


/NOW 

0577 

5526 

JMP I 

STX 

/RETURN TO START 



/DEC-09-EUFB 


POP-8 DECTAPE FORMATTER PAL10/3 V141 


15-MAY-70 


16103 PAGE 14 



0600 


$$00 





/WAIT 

FOR THE 

DECTAPE 

flag to rise 

0600 

0000 

stall. 

0 



0601 

7200 


CIA 



0602 

6772 


DTRB 


/READ TCU "0" REGISTER 

0603 

7510 


SPA 


/ERROR? 

0604 

3242 


JM p 

ERROR 

/YES, DECIDE WHAT TO 00 

0605 

7010 


RAR 


/DECTAPE FLAG TO LINK 

0606 

7620 


snl 

CLA 

/FLAG? 

060? 

5202 


JMP 

»»5 

/NO! CONTINUE WATCH 

0610 

6764 

RERR, 

PTXA 


/RESET THE DECTAPE FLAG 

0611 

3031 


OCA 

ERX 

/CLEAR THE END TAPE FLAG 

0612 

5600 


JMP I 

STALL 

/got flag, exit 



/DRIVE 

TAPE INTO THE 

END ZONE. ANO TURN JT 



/around. 





/IF C < AC)®@40i 

1? TAPE 

INTO REVERSE END ZONE 



/IF C<AC)»0008 

1# tape 

into forward end zone 

0613 

0000 

TRN, 

0 



0614 

2031 


IS2 

ERX 

/END ZONE IS LEGAL 

0615 

3023 


OCA 

H4 

/SAVE DIRECTION 

0616 

1160 


tad 

DT0200 

/MOVE FUNCTION.GO 

0617 

1023 


tad 

H4 

/DIRECTION TO MOVE 

0620 

1030 


tad 

DTA 

/DRIVE TO MOVE 

0621 

6766 


DTCX 


/CLEAR AND RESET "A" 

0622 

4533 


JMS I 

WAIT 

/for end zone flag 

0623 

1165 


tad 

DT0610 

/SEARCH. GO 

0624 

1023 


tad 

W4 

/DIRECTION TO SEARCH 

0625 

0232 


AND 

C0777 

/OELETE OVERFLOW BIT 

0626 

1030 


TAD 

DTA 

/set the oectape 

0627 

6766 


DTCX 


/RESET STATUS "A" 

0630 

3031 


OCA 

ERX 

/END ZONE NOT LEGAL NOW 

0631 

5613 


JMP I 

trn 

/RETURN TO SEQUENCE 

0632 

0777 

C0777. 

0777 





/WAIT 

TILL WORD COUNT 

REGISTER GOES TO ZERO 

0633 

0003 

MINI, 

0000 



0634 

7300 


cla 

CLl 


0635 

1534 


tad l 

wc 

/WORD COUNT TO THE AC 

0636 

7640 


S2A 

cla 

/WORD COUNT EQUAL TO ZERO? 

0637 

5235 


JMP 

.-2 

/NO! BE PATIENT 

0640 

6764 


DTXA 


/YESI RESET THE OECTAPE FLAG 

0641 

5633 


JMP I 

MINI 

/RETURN tO SEQUENCE 



/DEC-0B-EUFS PDP-8 OECTaPE FORMATTER PAL10/3 Vl4l 13-MAY-70 16103 PACE 13 

/an error flag has been set. in some cases 
/end zone is legal• otherwise, a restart attempt 

/MAY BC INITIATED. 

/determine which flag set the dectape flag 


0642 

3024 

ERROR* OCA 

W3 

/SAVE "8" REGISTER 

0643 

1030 

tad 

OTA 

/GOING TO KILL 

0644 

6766 

DTCX 


/TAPE MOTION 

0645 

1024 

tad 

H9 

/RESTORE "B" REGISTER 

0646 

7006 

rtl 


/POSITION BITS 1*2 

0647 

7510 

SPA 


/END OF TARE FLAG? 

0630 

1261 

JMP 

*EOT 

/Y|S1 GO TO ROUTINE 

0631 

7430 

3?L 


/MARK TRACK ERRORI 

0632 

3274 

JMP 

ZMKTK 

/YESl GO TO ROUTINE 

0633 

70i6 

RTL 


/POSITION BITS 2*3 

0654 

7510 

SPA 


/PARITY ERROR? 

0635 

3304 

JMP 

1MR 

/YCSi GO TO RARITY ERROR ROUTINE 

0656 

7630 

SIL 

CLA 

/SELECT ERROR? 

0657 

5312 

JMP 

iSEL 

/YESl GO TO ROUTINE 

0660 

5320 

JMP 

IT JM 

/MUST BE TIMING ERROR 



/END OF TAPE 

FLAG FOUND. 

SEE IF IT'S LEGAL 

0661 

7300 

lEOTp cla 

CLL 

/clear remains 

0662 

1031 

tad 

ERX 

/SWITCH 

0663 

7640 

S2 A 

CLA 

/error? 

0664 

5210 

JHP 

RIRR 

/OK. IT'S LEGAL 



/NOT LEGAL ENO ZONE FLAG 

0665 

4531 

JMS I 

type 


0666 

0516 

0516 

/EN 


0667 

0440 

0440 

/D 


0670 

2401 

24J1 

/TA 


0671 

2005 

2005 

/PE 


0672 

4000 

4000 

/ 0 


0673 

5325 

JMP 

2C0M 




/mark TRACK ERROR 


0674 

4531 

ZMKTK. JMS I 

TYPE 


0675 

1501 

1501 

/MA 


0676 

2213 

2213 

/RK 


0677 

4024 

4024 

/ T 


0700 

2201 

2201 

/RA 


0701 

0313 

0313 

/CK 


0702 

4000 

4000 

/ 0 


0703 

5325 

JMP 

2C0M 




/DEC-08-EUFB 


pop-8 dectape formatter palio/s vm 
/parity error 


15-MAY-70 


16(23 PACE 18 


0704 

4531 

ZPAr, 

JMS I 

type 

0705 

2001 


2001 

/PA 

0706 

2211 


2211 

✓ RI 

0707 

2431 


2431 

/TV 

0710 

4000 


4000 

/ 0 

0711 

5325 


JMP 

ZOOM 



/select 

ERROR 


0712 

4531 

ZSEl* 

JMS I 

type 

0713 

2305 


2305 

/SE 

0714 

1405 


14 0 5 

/IE 

0715 

0324 


0324 

/CT 

0716 

4003 


4000 

/ 0 

0717 

5325 


JMP 

ZOOM 



/TIMING 

error 


0720 

4531 

2TIm» 

JMS I 

type 

0721 

2*11 


2411 

/T I 

0722 

1511 


1511 

/MI 

0723 

1607 


1607 

/NG 

0724 

400" 


4000 

/ 0 



/type ■» 

ERROR 

PHASE X” 

0725 

1032 

ZOOM t 

TAD 

PHASE 

0726 

1373 


tad 

PFORM 

0727 

3337 


dca 

tfqrm 

0730 

4531 


JMS I 

TYPE 

0731 

0522 


0522 

/ER 

0732 

2217 


2217 

/RO 

0733 

224 " 


2240 

/R 

0734 

2013 


2010 

/PH 

0735 

0123 


0123 

/AS 

0736 

0540 


0540 

/E 

0737 

4060 

TFORM# 

4060 

/ X 

0740 

4345 


4345 

/cr*lf 

0741 

000 J 


0000 

/END 

0742 

4532 


JMS I 

typin 


/WHAT PHASE OF OPERATION 

/was the machIne IN 

/WHEN ERROR oCCURED 


/HE CAN RESTART IF HE TYPES "RETRY" 


0743 4513 JMS I CQMPAR 

0744 0322 0322 /R 

0745 0305 03@5 /£ 

0746 0324 0324 /T 

0747 0322 0322 /R 

0750 0331 0331 /Y 

0751 0000 0000 /0 

0752 3515 


JMP I IT 


/GUESS HE DOESN'T WISH TO TRY AGAIN 



/DEC-00-EUFB 


pop-8 dectape formatter paub/3 viai 
/ATTEMPT RESTART, NOTE, "ATTEMPT" 


13-MAY-70 


16|03 PACE 17 


0753 

1032 


TAD 

PHASE 

/RESTART ACCORDING TO 

0754 

1357 


TAD 

2FORM 

/WHICH 

PHASE WAS HE IN 

07 55 

3360 


DC A 

.♦3 



0756 

5760 


JMP I 

• *2 



0757 

07 61 

2F0RM» 

• *2 




0760 

0000 


0000 




0761 

5766 


JMP I 

• *5 

/PHASE 

0 

0762 

5767 


JMP I 

.♦5 

/PHASE 

1 

0763 

5770 


JMP I 

• *5 

/PHASE 

2 

0764 

5771 


JMP I 

.*5 

/PHASE 

3 

0765 

5772 


JMP I 

»*5 

/phase 

4 

0766 

1000 


start 




0767 

1622 


pser 




0770 

2003 


DO0LK 




0771 

220v 


DBN 




0772 

700 7 


NOP 




0773 

4060 

PFORM* 

4060 






/OEC-0S-CUFS 


pdp-8 dectape formatter palib/ 3 vin is-may-70 


16103 RASE 11 


/HERE STARTS THIS PROGRAM. IT HILL ASK THE 
/OPERATOR for drive numbers, then ask him for 

/A DIRECTION ON WHAT TO DO WITH THE DRIVES, 

/the sequence for marking a tape would appear asi 


/DTA? (3 OR 1 a 3 OR 2 4 7) 

/direct? (mark lBi'Sy* 

/22?7 WORDS, 0296 BLOCKS.OK? YES OR NO 
/(YES) 


/THAT DATA IN PARENTHESIS IS TYPED BY THE OPERATOR 
/(HE DOESN.'T TYPE THE PARENTHESIS) 

/IF he HAD ANSWERED NO, "DIRECT?" WOULD BE TYPED OUT. 

/IF THE DRIVE HAS HR0N6, HE WOULD TYPE RESTART. 

/IF HE HAD, TYPED "MARK" IN RESPONSE TO "DIRECT?" THE 

/TAPE WOULD BE MARKED WITH THE STANOARO POP'S CONFIGURATION. 

/IF HE HAD TYPED "MARK 3j4" fHE TAPE WOULD 

/be MARKED. with the standard POP-10 CONFIGURATION 

/note) the word and block numbers arc typed in octal 

/IF A MISTAKE OCCURS ON THE OPERATORS PART (WITH REFERANCE 
/TO BLOCK * WORD SIZE) HE WILL BE TOLO ABOUT IT 



/DEC-08-IUFS 


pdp-8 oectape formatter palib/3 vhi 


15-MAY-70 


16103 PA6E 16 


1000 *1000 

/make a call for the dectape NUMBERS To be 
/worked, 


1000 

4531 

START > 

JMS I 

type 

/SET UP TYPER 

1001 

4543 


4543 

/cr*lf 


1002 

4300 


4300 

/LF*END 


1003 

4531 

TYQU. 

JMS I 

type 

/"OTAT" 

1004 

0424 


0424 

/DT 


1005 

0177 


0177 

/A? 


1006 

4000 


4000 

/ END 




/WAIT 

for a reply 


1007 

4532 


JMS I 

TYPIN 

/GET NUMBERS 

1010 

1110 


TAD 

BADD 

/INITIALIZE POINTER (BFR) 

1011 

7001 


X Ac 


/(BADDpBUFFER-1. SO BUMP THE AC) 

1012 

3111 


OCA 

BFR 

/TO STARt OF INPUT BUFFER 

1013 

3374 


OCA 

DCTR 

/INITIALIZE DTA COUNTER TO 0 

1014 

3346 


OCA 

crflag 

/CLEAR FLAG 80 CR NOT ACCEPTIBLE 

1015 

1072 

crchk > 

TAD 

CRCOO 

/GET CODE FOR CAR, RETN 

1016 

7041 


CIA 


/negate IT 

1017 

1511 


tad I 

BFR 

/SEE IF NEXT CHAR, IN 

1020 

7450 


SNA 


/BUFFER IS CAR, RETN, 

1021 

5244 


JMP 

OKCR 

/YESI SEE IF C.R, LEGAL HERE 
/NO: SO C.R, IS LEGAL NOW 

1022 

3346 


OCA 

crflag 

1023 

1055 

valchk. tad 

C261 

/SEE IF » IS LESS THAN 

1024 

7041 


CIA 


/ASCII 1 (261) 

1025 

1511 


TAD I 

BFR 

/SUBTRACT BUFFER DATA 

1026 

7710 


SPA 

CLA 

/is it less than ash 0 ? 

1027 

5203 


JMP 

TYQU 

/YESI TELL OUTSIDE WORLD 

1030 

1057 


tad 

C270 

/no: see if greater than 

1031 

7040 


CMA 


/ASC II 6 (270) 

1032 

1511 


TAD I 

BFR 

/SUBTRACT BUFFER DATA 

1033 

7700 


sma 

CLA 

/GREATER THAN ASCII 77 

1034 

5203 


JMP 

TYQU 

/yesi tell outside world 

1035 

1511 


tad I 

BFR 

/no: ACCEPT BUFFER 

1036 

7012 


RTR 



1037 

7012 


rtr 


/4 BITS RIGHT 

1040 

0064 


and 

C7000 

/ISOLATE DTA 

1041 

4347 


JMS 

REPEAT 

/GO CHECK FOR REPEATED DTA AND STORE 

1042 

2111 


IS2 

BFR 

/INCREMENT input buf, ptr. 

1043 

5215 


JMP 

CRCHK 

/GO LOOK AT NEXT CHAR. 



/THIS 

SECTION 

CHECKS TO 

SEE IF THERE HAS BEEN ANY 



/valid 

INPUT 

ONCE A CARRIAGE RETURN IS SEEN 

1044 

7200 

okcr , 

CLA 


/CLEAR AC 

1045 

1346 


TAD 

crflag 

/LOAD CR FLAG) 0 MEANS NO GOOD 

1046 

7650 


SNA 

CLA 


1047 

5200 


JMP 

START 

/0I NO VALID INPUT) RESTART 

1050 

1374 


TAD 

DCTR 

/NOT 01 SO HAVE VALID INPUT 

1051 

1376 


tad 

DBUFAD 

/calculate end of ota list *1 

1052 

3375 


DCA 

DBUFPT 

/store it in buffer pointer, then 

1053 

7040 


cma 


/COMPLEMENT THE AC AND 



/DEC-0S-EUFB 


PDP -8 OECTAPE FORMATTER PAL10/3 V141 


15-MAY-70 


16103 PACE X9-1 


1054 

3775 


DCA I 

DBUFPT 

/TERMINATE OTA LIST WITH 

7777 

1055 

7200 

INIT 1 > 

cu 


/CLEAR AC IF COME THRU LOC IT 

1056 

1376 


TAD 

DBUFAD 

/and reset list pointer 


1057 

3375 


DCA 

DBUFPT 

/TO START of list 


1060 

4745 


JMS I 

getdta 

/GO GET A OTA NUMBER 




/INFORM 

THE OPERATOR THAT THE PROGRAM IS SET TO 

START 



/TYPE " 

DIRECT 

" AND WAIT 

FOR THE REPLY 


1061 

4531 

IN I T, 

JMS I 

TYPE 

/MESSAGE OUT 


1062 

0411 


0411 

/OI 



1063 

2205 


2205 

/RE 



1064 

0324 


0324 

/CT 



1065 

7740 


7740 

n 



1066 

0000 


0000 

/END 



1067 

4532 


JMS I 

TYPIN 

/WAIT FOR A REPLY 


1070 

4513 


JMS I 

COMPAR 

/DIO HE TYPE "MARK"? 


1071 

0315 


0315 

/M 



1072 

0-301 


0301 

/A 



1073 

0.322 


0322 

/R 



1074 

0313 


0313 

/K 



1075 

0 0 0 0 


0000 

/end 



1076 

5301 


JMP 

.♦3 



1077 

5700 


JMP I 

.*1 



1100 

1200 


MARK 


/TO MARK A TAPE 




/D »-08-EUFB 


PDP-8 OECTAPE 

FORMATTER PAL10/3 V141 15-MAY-70 

16103 

PAGE 2® 



/SEE IF HE TYPEO "ROR" (READ AND TYPE FIRST 

12 





/BLOCK NUMBERS 

! IN REVERSE) . 




1101 

4513 

JMS I 

COMPAR 




1102 

^322 

0322 

/R 




1103 

0304 

0304 

/D 




1104 

0322 

0322 

/R 




1105 

0000 

0000 

/§ 




1106 

5311 

jMp 

8 *3 




1107 

5710 

JMP I 

.♦1 




1110 

2450 

ROR 

/TYPE BLOCKS 






/SEE IF HE TYPED "RDF" (READ AND TYPE FIRST 

12 





/block numbers 

! FORWARD). 




llll 

4513 

JMS I 

COMPAR 




m2 

322 

0322 

/R 




1113 

0304 

0304 

/D 




1114 

(•' 3 0 6 

0306 

/F 




1115 

0 000 

0000 

/0 




1116 

5321 

JMP 

.♦3 




1117 

5720 

JMP 1 

.♦1 




1120 

2400 

ROFA 

/type blocks 






/SEE IF HE TYPEO "SAME" (MEANING MARK A TAPE 






/jSinG THE SAME CONSTANTS AS BEFORE). 




1121 

4513 

JMS I 

COMPAR 




1122 

0323 

0323 

/s 




1123 

0-301 

0301 

/A 




1124 

L315 

0315 

/M 




1125 

0305 

0305 

/E 




1126 

0-00 0 

0000 

/0 




1127 

5332 

JMP 

.♦3 




1130 

5731 

JMP I 

.*1 




1131 

1353 

RSTSM 

/TO HARK as before 






/SEE IF HE TYPED "RESTART" 




1132 

4513 

JMS I 

COMPAR 




1133 

0322 

0322 

/R 




113 4 

0 305 

0305 

/E 




1135 

0323 

0323 

/S 




1136 

0324 

0324 

/T 




1137 

0301 

0301 

/A 




1140 

0322 

0322 

/R 




1141 

0324 

0324 

n 




1142 

0000 

0000 

n 




1143 

4143 

JMS 

QU /MUST BE NONSENSE 




1144 

5200 

JMP 

START /START ALL OV^R 




1145 

1703 

GETOTA, NUOTA 

/POINTER TO ROUTINE 

TO SWITCH 

UNIT1 


1146 

000 1 

crflag, 0 

/»0, CR NO GOOD J NOT 

0i CR IS 

OK 




/DEC-Be-EUFB 


PDP-6 OECTAPE FORMATTER RAL1B/3 V141 


15-MAY-70 


16103 PAGE U 


/SUBROUTINE TO chick for repeated dta numbers 
/DTa « TO COMPARE to LIST IS IN AC ON ENTRY—THIS 
/ROUTINE STORES THE OTA tit IF IT IS NEW AND IGNORES IT 




/IF IT IS NOT 

-CALL BY < 

JMS REPEAT WITH dta * IN AC 

1147 

@000 

REPEAT, 0 



1150 

3377 

OCA 

DNUM 

/TEH STORAGE FOR NEW DTA 0 

1151 

1376 

TAD 

OBUFAD 

/INITIALISE POINTER IQBUFPT) 

1152 

3373 

DCA 

DBUfPT 

/TO START OF DTA LIST 

1153 

1$74 

tab 

OCTR 

/LOAD NUM. OF OTAS STORED 

1154 

7040 

cma 


/COMPLEMENT IT 

1155 

3373 

OCA 

COMCTR 

/STORE IN COMPARE COUNTER 

1156 

2373 

COMCHK, SSg 

COHCTR 

/DONE WITH ALL COMPARES? 

1137 

9364 

jmp 

DOC0HP 

/NO! GO DO COMPARE 

1160 

1377 

TAD 

DNUM 

/YISI STORE NEW OTA* 

1161 

3775 

DCA I 

DBUFPT 

/AT END OF LIST 

1162 

1374 

I S3 

PSTR 

/INCR. * OF OTAS STORED 

1163 

S747 

JMP I 

REPEAT 

/RETURN 


/THIS SECTION DOES THE ACTUAL COMPARISON BETWEEN 

/THE OTAfS PASSED 'TO THE ROUTINE ANO A NUMBER ON THE LIST 


1164 

1771 

DOCOMP, 

tad I 

DBUFPT 

/GET 

NEXT OTA NUMBER FROM LIST 

1165 

7@41 


CIA 


/NEGATE IT 

1166 

1377 


TAD 

ONUM 

/ADD 

IN OTA NUMBER PASSED 

1167 

7650 


SNA 

cla 

/ARE 

they the same? 

1170 

9747 


JMP I 

REPEAT 

/YES t 

RETURN 

1171 

2375 


IS! 

DBUFPT 

/NO* 

increment list pointer 

1172 

5356 

/ 

JMP 

COMCHK 

/SEE 

IF DONE ALL COMPARES 

1173 

0000 

/ 

COMCTR, 

0 

/COUNTER 

FOR 

* OF LIST COMPARISONS TO BE DONE 

1174 

0000 

OCTR, 

0 

/COUNTER 

FOR 

* OF OTA? IN LIST 

1175 

0000 

dbufpt, 

0 

/POINTER 

TO CURRENT POSITION IN OTA LIST 

1176 

1725 

dbufad, 

otabuf 

/START OF OTA 

NUM. LIST 

1177 

0000 

dnum, 

0 

/TEM STORAGE 

FOR DTA * 


/ 

/ 

PAUSE 



/DEC-0I-CUFB 


PDP-8 

dectape 

FORMATTER 

PAL10/3 V141 19-MAY-70 
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1200 


• 1200 







/HARK 

WAS TYPED IN, 

if 

Wl-i IS NOT A "K",ASSUME THAT 




/A NUMBER MAS 

typed 

IN. 

AND VERIFY THIS, IF Wl-1 IS 




✓ A "K 

", ASSUME STANDARD 

FORMAT,(W1»LAST entry into the 

BUFFER) 

1200 

1171 

mark, 

tad 

bincon 


/ADDRESS OF FIRST BINARY 


1201 

3024 


OCA 

MS 


/CONSTANT for dec TO BIN 


1202 

3033 


OCA 

total 


/WILL BE BINARY eQUIVILANT 




/SAVE 

C(X1> FOR DECREMENT THROUGH BUFFER 


1203 

7240 

ONC. 

CIA 

CMA 


/DECREMENT BUfFER ADDRESS 


1204 

1020 


TAD 

Ml 


/ADDRESS BY 1 


1205 

3020 


OCA 

Ml 


/Wl-SWEEP ADDRESS 




/LOOK 

FOR END 

OF PROCESSING by LOOKInQ FOR a "K" in buffer 

1206 

1073 


tad 

LETK 


/LETTER ASCII "K" 


1207 

7041 


CIA 



/SUBTRACT FROM CHARACTER 


1210 

1420 


tad I 

Ml 


/IN BUFFER 


1211 

7650 


SNA 

cu 


/EQUAL? 


1212 

5244 


JMP 

01V 3 


/YESl SEE IF DIVISIBLE By 3 




/verify this 

CHARACTER 

AS BEING OF DECIMAL ORIGIN 


1213 

1054 


TAD 

026® 


/ASCII FOR 0 


1214 

7041 


CIA 



/TO see if character 


1215 

1420 


TAD I 

Hi 


/is less than 26b 


1216 

7710 


SPA 

CLA 


/II JT? 


1217 

5520 


JMP I 

QU1 


/YESl NOT DECIMAL CHARACTER 


1220 

1060 


TAD 

C2 7 l 


/ASCII FOR 9 


1221 

7040 


cma 



/TO see if greater than 


1222 

1420 


TAD I 

Ml 


/9 


1223 

7700 


SMA 

CLA 


/II JT? 


1224 

5520 


JMP I 

QU1 


/NOT A DECIMAL CHARACTER 




/OEC-08-EUF0 PDP-8 DECTaPE FORMATTER PAL10/3 Vl*l 15-MAY-70 16|03 PAGE 13 

/CHARACTER IS DECIMAL. NOW CONVERT IT TO BINARY 
/REMEMBER POSITION OF CHARACTER IN buffer MAY BE 

m. lea. 1000. 


1225 

1420 


TAD 

: wi 

/ISOLATE THE NUMBER 

1226 

0042 


ANd 

C00L7 

/FOR PROPER CONVERSION 

1227 

7450 


SNA 


/IF 2, NO BINARY CONVERSION NEEDED 

1230 

5242 


JMP 

IBS 

/YES 1 01 INCREMENT BINARY CONVERSION 



/NOT 0. 

i SET 

UP CONVERSION LOOP 

1231 

7141 


CLL 

CIA 

/number of additions 

1232 

3023 


OCA 

N4 

/to NEGATIVE for ISZ 

1233 

1424 


TAO 

i m 

/BINARY position TO C ( ACC > 

1234 

1033 


TAD 

TOTAL 

/ADD To PRESENT TOTAL 

1235 

7430 


SIL 


/CHECK ON TO MANY WORDS 

1236 

5521 


JMP 

I QU2 

/TO MANY WORDS CALLED FOR 

1237 

3033 


dca 

total 

/KEEP RUNNING SUM 

1240 

2023 


ISZ 

N4 

/LAST ADDITION? 

1241 

5233 


JMP 

9-6 

/NO: ADD AGAIN 



/FINAL 

ADDITION FOR 

THIS POSITION COMPLETED 

1242 

2024 

IBS, 

ISZ 

W5 

/NEXT POSITION 

1243 

5203 


JMP 

PNC 

/DO NEXT CHARACTER 


/LAST CHARACTER COMPLETED. SEE IF DIVISIBLE BY 3 
/IF NOT A NORMAL INPUT 


1244 

1033 

D1V3* TAD 

total 

/GET TOTAL WORDS 

1245 

7 450 

SNA 


/IF TOTAL 0. NORMAL INPUT 

1246 

1052 

tad 

cm 

/129 OCT. THIS TEST REDUNDANT 

1247 

1042 

TAD 

C0017 

/AOD CONSTANT 15 TO TOTAL 

125^ 

3033 

dca 

TOTAL 

/FOR FUTURE CONSIDERATIONS 

1251 

3034 

DCA 

VAR1 

/# OF W0R0S/3 FOR MARK TRACK WRITING 

1252 

1033 

TAD 

TOTAL 

/RESTORE IN THE ACC 

1253 

7100 

CLL 


/TO DIVIDE BY 3, LINK KEEPS OVERFLOW 

1254 

1076 

tad 

M3 

/SUBtRACT 3 

1255 

2034 

I Si 

VAR1 

/ON EACH DIVISIONS KEEP RUNNING SUM 

1256 

7440 

S2A 


/IF AC * 0#NO REMAINDER 

1257 

7420 

snl 


/WHEN LINC GOES TO 0. DIVISION ENOED 

1260 

7410 

SKP 


/NOW SEE IF JT DIVIDED EVENLY 

1261 

5253 

JMP 

9 ®“6 

/SUBTRACT 3 MORE 

1262 

7640 

Si A 

CLA 

/IF 0>OK. OTHERWISE ERROR 

1263 

5523 

JMP 

I QUA 

/not divisible by 3 



/CORRECT "VAR!" ( THE 

NUMBER of WORDS/3) FOR the *15 



/ADDED JUST 

ABOVE AND 

AN INHERANT *2 DUE TO MARK TRACK 



/CONFIGURATION TO BE 

WRITTEN. 

126^ 

1101 

TAD 

m 

/SUBTRACT 7 FROM phony setup 

1265 

1034 

tad 

VAR! 

/GIVING THE NUMBER OF TIMES 

1266 

7041 

CIA 


/TO BE USED LATER IN A ISZ 

1267 

3034 

DCA 

V AR1 

/DATA MARK WILL BE WRITTEN 




15-HAY-70 


/DEC-0 


B-EUFB 


pdp-8 dectape formatter palib/3 vi«i 


161 S3 


/COMPUTE A VALUE FOR TOTAL NUMBER OF BLOCKS 
/RECORD SIZE ♦ 15 INTO 636160 OCT. 


1270 

1066 

tad 

C7714 

/EXTENDED *4 value. SETS AC#2 

1271 

3020 

dca 

HI 

/SET FOR 64S0S0 

1272 

4775 

JMS I 

FQRM10 

/PATCH TO CHECK FOR STD.10 FORMAT 

1273 

1063 

tad 

C1620 

/VERNIER ADJUSTMENT FOR FORMULA 

127 A 

7100 

CLL 


/ACCP2 CARRY FUNCTION 

1275 

1033 

tad 

TOTAL 

/WORD COUNT 

1275 

2026 

IS2 

blocks 

/♦I TO BLOCK COUNT 

1277 

7410 

SKP 



1300 

5522 

JMP S 

QU3 

/TO MANY BLOCKS CALLED FOR 

1301 

7420 

SNL 


/CARRY INTO ACCP2T 

1302 

5275 

JMP 

.-5 

/NO: CONTINUE COUNT 

1303 

202C 

IS2 

HI 

/YESI FULLY DIV 10C07 

1304 

§274 

JMp 

.-10 

/NO: CONTINUE PROCESS 

1305 

7300 

OLA 

CLL 

/C(ACC)♦ C(L)"0 

1306 

1026 

F10RTN, TAD 

blocks 

/FOR MARK TRACK (COME HERE FR F10PAT 

1307 

7040 

DMA 


/WRITING 

1310 

3035 

DCA 

VAR2 

/SEE MARK WRITE 



/values for block and RECORD SIZE have been 



/computed. TELL OUTSIDE 

WORLD AND GET THE OK, 

1311 

1033 

TAO 

TOTAL 

/SUBTRACT 15 FROM TOTAL 

1312 

1067 

TAD 

C7761 

/WORDS FOOLING OPERATOR 

1313 

3033 

DCA 

TOTAL 

/CORRECTED FOR TAPI WRITING 

1314 

1033 

TAD 

TOTAL 

/FOR OCTAL TyPEOUT 

1315 

4530 

JMS l 

TYOCT 

/TYPE OCTAL WORDS 

1316 

4531 

JMS I 

TYPE 

/TYPE MESSAGE 

1317 

4027 

4027 

/ w 


1320 

1722 

1722 

/OR 


1321 

0423 

0423 

/DS 


1322 

5400 

5400 

/. END 


1323 

1026 

TAD 

blocks 

/TYPE OUT BLOCK #S 

1324 

7001 

I Ac 


/TO FOOL THE OPERATOR 

1325 

4530 

JMS I 

tyoct 

/IN OCTAL 

1326 

4531 

JMS I 

type 

/TYPE MESSAGES 

1327 

4002 

4002 

/ 8 


1330 

1417 

1417 

/LO 


1331 

0313 

0313 

/CK 


1332 

2356 

2396 

/s, 


1333 

1713 

1713 

/OK 


1334 

7733 

7733 

/ 1 ( 


1335 

3105 

3105 

/YE 


1336 

2340 

2340 

/S 


1337 

1722 

1722 

/OR 


1340 

4016 

4016 

/ N 


1341 

1735 

1735 

/O) 


1342 

4543 

4543 

/CR^LF 


1343 

0000 

0000 

/END 


1344 

4532 

JMS I 

typin 

/WAIT FOR REPLY 


PACE 34 


10 FRMt> 



/DEC-08-EUFB 


PDP-0 DECTAPE FORMATTER PAL10/3 V141 
/SEE IF A YES OR NO ANSWER WAS GIVEN 


l9«MAY-»70 
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1345 

4513 


JMS I 

COMPAR 


1346 

0331 


0331 

/Y 


1347 

0305 


0305 

n 


1350 

0323 


0323 

/s 


1351 

0000 


0000 

/end 


1352 

5515 


JMP 1 

IT 




/SEE IF 

THE DRIVE IS OK 


1356 

1153 

R3TSM ’ 

tad 

OT0O60 

/GIVE WRTM. NO GO 

1354 

1030 


tad 

dta 

/AND DTA # 

1355 

6766 


DTCX 


/ORDER execute 

1356 

302 1 


DC A 

W1 

/STALL FUNCTION 

1357 

6772 

CDTRD > 

dtrb 


/READ STATUS "B" 

1360 

7700 


SMA 

CLA 

/ERROR? 

1361 

5371 


JMP 

CI2 

/NO: TIME OUT STALL 

1362 

4531 


JMS I 

TYPE 

/YESI INCORRECT SETUP 

1363 

2305 


2305 

/SE 


1364 

2425 


2425 

/TU 


1365 

2077 


2077 

/P 


1366 

0003 


0000 

/END 


1367 

5770 


JMP I 

.+1 


1370 

1000 


start 





/stall 

FOR A 

WHILE FOR 

THE INTERRUPT 

1371 

2020 

CI2, 

IS2 

W1 

/ONE ROUND'S WORTH 

1372 

5357 


JMP 

COTRD 

/OF ISE 

1373 

5774 


JMP I 

• *1 


1374 

1400 


stmk 


/OK. GO DO THE MARK TRACK 

1375 

1560 

FORM10, 

F10FAT 




/DEC-00-EUFB 
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1400 *1400 

/set the tape into motion, all variables are 




/SET. 

FROM THIS POINT 

ON, CONTROL is executed 



/via the hco 

interrupt 




/clear 

OUT STATUS "A" 

AND RELOAD IT WITH CONTINUOUS 



/write 

TIMING 

AND MARK 

TRACK COMMAND 

1400 

1162 

STMK. 

TAD 

OTiW 

/FWD, CONT, T*M,GO,INT 

1401 

1030 


TAD 

OTA 

/ADD IN THE OTA 

1402 

6766 


DTCK 


/Clear flags start motion 

1403 

3032 


DCA 

PHASE 

/for ERROR ROUTINE 

1404 

1035 


tad 

VAR2 

/TO MAKE A RESTART FOR THE "SAME 

1405 

3025 


DCA 

wa 

/OPTION POSSIBLE 



/write 

END I0m 9 WRITE 

ABOUT If' OF THIS 



/CONFIGURATION, 4144 




/ 


0441 

ON TAPE A$ 



/ 


4404 

(5555) OCTAL. 

1406 

3020 


DCA 

HI 

/clear COUNTER# 7777. ABOUT 10' 

1407 

1312 

C£ J * 

TAD 

Rll 

/LOAD ADDRESS OF DATA 

1410 

3512 


OCA I 

CA 

/TO BE WRITTEN INTO THE CA 

1411 

1076 


TAD 

H3 

/LOAD i WORDS TO BE WRITTEN INTO 

1412 

3534 


DCA I 

NO 

/WO LOCATION 



/WAIT 

FOR INTERRUPT, TEST FOR END OF 



/end zone WRITING. 


1413 

4533 


JMS I 

WAIT 

/FOR INTERRUPT 

1414 

2020 


I si 

Hi 

/END OF FOOTAGE? 

1415 

5207 


JMP 

Ggi 

/NOT END FOOTAGE, CONTINUE 


/OK, WRITE INTERBLOCK SYNC 


/write interblock sync, since this configuration 
/act AS a nop to the tcu, at the begining of 
/tape, more length of THIS II NEEDED FOR turn around 
/time to GUARANTEE BLOCK 0000 TO THE LIBRARY SYSTEM 
/THEREFORE at the begining of tape only, hritc several 




/INTERBLOCK 

ZONES 


1416 

1103 

tad 

M144 

/NUMBER of TIMES TO 

1417 

3020 

OCA 

HI 

/write interblock SYNC 

1420 

4224 

JMS 

INSIST 

/write i interblock sync 

1421 

2020 

iss 

HI 

/configuration, test end 

1422 

§220 

JMP 

.-2 

/NOT TOTAL FOOTAGE. WRITE 

1423 

5235 

JMP 

WDZ 

/COMPLETED, go on 



/DEC-06-EUFB PDP-8 DECTAPE FORMATTER PAL10/3 V141 19-MAY-70 Id|03 RAGE 27 

/AT NORHAU RETURN, WRITE ONLY ONE INTERBLOCK SYNC 
/CONFIGURATION, APPEARS AS 0404 

/ 0404 ON TAPE AS 

/ 0404 2529 OCTAL 


1424 

0000 

inblsy 

i 0 



1425 

1316 


TAD 

IBi 

/COUNTER AND WORD 

1426 

3512 


DCA I 

CA 

/COUNT WITH KEYS 

14 2 7 

1076 


TAD 

M3 

/FOR CONTROL 

1433 

3534 


DCA I 

wc 


1431 

1034 


tad 

VARl 

/reset the words 

1432 

3024 


OCA 

W5 

/PER BLOCK counter 



/'WAIT 

for interrupt, 

return to sequence 

1433 

4533 


JMS I 

wait 

/for INTERRUPT 

1434 

5624 


jMp I 

INBLSY 




/WRITE 

FORWARD 

l BLOCK 

MARK AND REVERSE GUARD 



/three: 

WORDS 

0404 




/ 


4004 

ON TAPE AS 



/ 


4040 

2632 OCTAL 

14 35 

1322 

WOZ, 

tad 

fbm 

/ADDRESS OF PATTERN 

1436 

3512 


DCA I 

CA 

/TO CURRENT ADDRESS 

1437 

1076 


tad 

M3 

/NUMBER OF WORDS 

14 4 3 

3534 


DCA I 

wc 

/TO WORD counter 

1441 

4533 


UMS I 

wait 

/DROP THROUGH after write 


/•RITE LOCK MARK, REVERSE CKSUM, REVERSE FINAL,REV PREFINAl 




/Six WORDS 

1. 

0040 

4, 0040 



/ 

2 . 

0000 

5. 0000 ON TAPE OCTAL 



/ 

3 . 

4000 

6. 4000 10101010 

1442 

1326 

TAD 

WLMRF 


/ADDRESS OF PATTERN 

1443 

3512 

DCA I 

CA 


/TO current address 

14 4 4 

n?? 

tad 

M6 


/NUMBER OF WORDS 

1445 

3534 

DCA I 

wc 


/TO WORD COUNTER 

1446 

4533 

JMS I 

WAIT 


/DROP THROUGH AFTER WRITE 



/ white THE 

data 

TRACK 

. SINCE THE LENGTH OF EACH 


/’ECORD IS A VARIABLE. "VARl" KEEPS TRACK OF THE 
/ UmrER OF TIMES THIS CONFIGURATION WILL BE WRITTEN 
/"VARl" W*s DECIDED FROM ABOVE IN THE FORMULA 

/ ranSlation section 




/' hreE 

words 

4440 




/ 


0044 

ON TARE AS 



/ 


4000 

7070 OCTAL 

1447 

1335 

DTRK, 

tad 

DZ 

/uOAD ADDRESS OF THE DATA 

1453 

3512 


oca I 

CA 

/configuration into ca 

1451 

1376 


TAD 

M3 

/LOAD # WORDS 

1452 

35 34 


DCA I 

WC 

/INTO WORD COUNT 
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/DEC-08-EUFB 


PDP-8 DECTAPE FORMATTER PAL10/3 VIA! 15-MAY-70 
/WRITE ONE SET TEST "VAR1" FQR LAST SET 


1453 

4533 

JMS 

I 

WAIT 

/ONE CONFIGURATION 

1454 

2324 

ISH 


Wg 

/LAST? 

1455 

5247 

JMP DTRK /NOW WRITE DATA MARK TRACK 

/ mark track code for DATA IS COMPLETE, now write 
/PREFINAL- FINAL. CHECKSUM AND REVERSE CHECKSUM, 
/Six WORDS 1 4440 4 4440 

/ 2 4444 5 4444 ON TAPE AS 

/ 3 4044 6 4044 73737373 OCTAL 

1456 

1341 

tad 


fll 

/LOAO ADDRESS OF 

1457 

3512 

dca 

I 

CA 

/DATA CONFIGURATION INTO CA 

1460 

1100 

TAD 


M6 

/LOAD * WORDS 

1461 

3534 

OCA 

l 

WC 

/INTO WORD COUNT 

1462 

4533 

JMS 

l 

WAIT 

/till completed write 




/«rite 

GUARD p 

REVERSE 

block 



/three 

WORDS 

404k) 




/ 


0440 

ON TAPE AS 



/ 


0404 

5145 OCTAL 

1463 

1350 


TAD 

GR2 

/data address to 

1464 

3512 


DCA I 

CA 

/THE CA 

1465 

1076 


TAD 

M3 

/NUMBER OF WORDS 

1466 

3534 


dca I 

WC 

/TO WORD COUNT 

1467 

4533 


JMS I 

WAIT 

/till complete 


/THIS COMPLETE SET OF OATA transferes 
/completes ONE BLOCK on tape, since the 
/number OF BLOCKS IS VARIABLE- "VAR2" IS 
/USED TO RECYCLE, "VAR2'' WAS SET UP ABOVE IN 
/THE FORMULA TRANSLATION SECTION 


1470 

4224 

JMS 

INBLSY 

/write interblock SYNC 

1471 

2025 

IS2 

W6 

/TOTAL NUMBER OF BLOCKS 

1472 

5235 

JMR 

WD2 

/WRITTEN? NO 1 



15-MAY-70 


/QEC-?®-JUFB 


POP-3 DECTAPE FORMATTER PAL, 10/3 V1A1 


13103 PA6I 8# 


/ALL DATA BLOCKS HAVE SEEN WRITTEN, 

/now provide a suffer bone of interblock sync at the end 
/OF TAPE as at the start of tape 


1473 

1103 

tad 

M144 

1474 

3020 

OCA 

Ml 

1475 

$224 

JMS 

INilSY 

1476 

2020 

IS1 

HI 

1477 

5275 

jmp 

r®2 


/about TWO BlOCKS(STANOARO) worth 
/about 100 times 
/WRITE one pattern 
/AT END YETI 

/NO CONTINUE WRITING INTERBLOCK SYNC 


/COMPLETED block writing 

/write ANOTHER 10' OF END bone (FORWARD) 

/before loading block numbers. 




/THREE 

WORDS 

04§0 




/ 


4014 

ON tape as 



/ 


0040 

2222 OCTAL 

1500 

3020 


DCA 

Hi 

/IS2«10 FEET 

1501 

1394 

WEiF» 

TAD 

ezm 

/LOAD ADDRESS OF DATA 

1502 

3512 


DCA s 

CA 

/INTO CA 

1503 

1076 


tad 

MS 

/NUMBER OF WORDS 

1504 

3534 


DCA l 

we 

/WORD COUNT 



/write 

1 SET 9 

CHECK END 

OF 10' , 

1505 

4533 


JMS I 

WAIT 

/TILL COMPLETE 

1506 

2020 


I si 

HI 

/END OF FOOTAGE? 

1507 

5301 


JMP 

WgHF 

/NO, CONTINUE WITH ENO BONE 

1510 

5711 


JMP l 

.*1 

/GO and start BLOCK NUMBER 

1511 

1600 


MWTM 


/SEQUENCING 



/DEC-0S-IUF0 


PDP-8 DECTaPE FORMATTER PAL10/3 V141 15-MAY-70 3.6|03 PASE 30 

/these are the data configurations for the mark track 


/REVERSE END ZONE 


1512 

1512 

REZ, 






1513 

4044 

4044 

/ON 

TAPE 

AS 

5353 

(OCT) 

1514 

0440 

0440 






13i5 

4404 

4404 








/INTERBLOCK sync 





1316 

1516 

IBi, 






1517 

0404 

0404 

/ON 

TAPE 

AS 

2523 

(OCT) 

1520 

0404 

0404 






1521 

0404 

0404 








/forward slock 

HARK 

AND 

REVERSE 

GUARD 

1522 

1522 

fbh» 






1523 

0404 

0414 

/ON 

TAPE 

AS 

2632 

(OCT) 

1524 

4004 

4004 






1525 

4040 

4040 







/LOCK MARK, REVERSE CHECKSUM, REVERSE FINAL 
/AND REVERSE prefinal 


1526 A»26 WLHRF» , 

1527 0040 0040 

1530 0000 0000 

1531 4000 4000 

1532 0043 0040 

1533 0003 0000 

1534 4003 4000 

/DATA MARK 

1535 1535 02. 

1536 4440 4440 

1537 0044 0044 

1540 4000 4000 

/prefinal, final 

1541 1541 FEZ, 

1542 4440 4440 

1543 4444 4444 

1544 4044 4044 

1545 4440 4440 

1546 4444 ,4444 

1547 4044 4044 


/ON TAPE AS 10101010 !OCT) 


/ON TAPE AS 7070 (OCT > 

, FWO CHECKSUM, AND REVERSE LOCK 


/ON TAPE AS 73737373 (OCT) 



/DEC-UB-EllFB 


pop-8 oectape formatter palib/3 viai is-may-tb 
/forward guard and reverse block number 
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1552 

1550 

GR2, 



1551 

4040 

4040 

/ON TAPE 

AS 5145 (OCT) 

1552 

0440 

0440 



1553 

0404 

0404 





/forward end zone 


1554 

1554 

EZM, 



1555 

0400 

BABB 

/ON TARE 

AS 2222 (OCT) 

1556 

4004 

4004 



1557 

0043 

0040 





/SUBROUTINE TO 

SEE IF USER TYPED MARK 384 



/TO specify standard POP 

-10 FORMAT 

1560 

0 003 

fibpat, 0 



1561 

3026 

DCA 

BLOCKS 

/CLEAR LOG, BLOCKS IN CASE NOT 10-FORMAT 

1562 

1033 

tad 

total 

/AND GET NUMBER TYPED BY USER 

1563 

1373 

tad 

M617 

/WAS IT 384? 

1564 

7643 

S2A 

CLA 


1565 

5760 

JMP I 

F10PAT 

/no-return 

1566 

3020 

DCA 

Ml 

/YES-CLEAR W1 FOR WAIT LOOP 

1567 

1374 

TAD 

Cll0l 

/AND ADJUST BLOCK TOTAL FOR 

1570 

3326 

OCA 

BLOCKS 

/1102< OCTAL) BLOCKS, 

1571 

5772 

JMP I 

g *1 


1572 

1336 

F10BAK, F1BRTN 



1573 

7161 

M617, -617 



1574 

1101 

Cl 101> 1101 





/DEC-08-EUFB 


POP-8 DECTAPE FORMATTER PAL10/3 V141 


13-MAV-70 


16103 PAGE 92 


160 .) *1600 

/the mark track has been written, and tape is 
/moving forward in the forward end zone, stop 
/the tape and see if there are any tapes left to 
/MARK—IF SO CO DO THEM. ELSE TELL OPERATOR TO THROW THE 
/"NORMAL/WRTM/ROTM" SWITCH to "NORMAL" 

/HE WILL THEN CONTINUE AFTER THIS ACTION 

/KILL WRITE, STOP tape 


1600 

1154 

MWTM A 

tad 

DT0070 

/STOP TAPE WITH SELECT 

ERROR 

1601 

103'* 


tad 

OTA 

/LOAD DTA INTO ORDER 


1602 

6766 


dtcx 


/EXECUTE THE ABOVE 


1603 

4303 


JMS 

NUOTA 

/ANY MORE DTAS TO MARK? 

1604 

5702 


JMP I 

domark 

/YESI GO MARK THEM 




/MESSAGE to operator 



1605 

4531 


JMS I 

type 

/NO: BACK TO first OTA 

AND CONTINUE 

1606 

2305 


2305 

/SE 



1607 

244 1 


2440 

/T 



1610 

2327 


2327 

/sw 



1611 

1124 


1124 

/IT 



1612 

0310 


0310 

/CH 



1613 

4324 


4024 

/ T 



1614 

1743 


1740 

/O 



1615 

1617 


1617 

/NO 



1616 

2215 


2215 

/RM 



1617 

0114 


0114 

/AL 



1620 

0003 


0000 

/END 



1621 

4532 


JMS I 

typin 

/WAIT FOR CR 




/REVERSE tape 

for A FEW 

seconds to guarantee 




/BLOCK 

MARK SECT WILL BE 

: under the head 


1622 

1164 

PSER, 

TAD 

DT0602 

/reverse, move, go 


1623 

1030 


TAD 

DTA 

/ADD DTA TO ORDER 


1624 

6766 


DTCX 


/CLEAR TCU.GET MOVING 

IN REVERSE 



/stall 

A FEW 

SECONDS 



1625 

1104 


tad 

M300 

/AROUND 2 SECONDS 


1626 

3021 


DC A 

W2 

/MAJOR STALL 


1627 

2020 


ISI 

HI 

/minor STALL 


1630 

5227 


JMR 


/LOOP MINOR 


1631 

2021 


ISH 

W2 

/MAJOR STALL 


1632 

5227 


JMP 

9 "3 

/LOOP MAJOR 




/OEC-0@-EUFB pop-8 DECTaPE FORMATTER PAL10/3 V141 15-MAY-70 3,6103 PASS 53 

/TAPE OUT ON MARK TRACK NOW. TURN AND SET IT 

/moving forward, at this point, the last reverse 
/BLOCK NUMBER HILL BE WRITTEN UNTILL END 10NE IS 

/reached, therefore, when the bounce out of the end 

/ZONE TAKES PLACE, THE SYSTEM WILL BE ABLE TO SYNC ON 

/the reverie block number to write the rest of 
/the block numbers and known good data in reverse. 

/this process will eliminate a needless rewind and i 

/KEEP THE entire PROCESS TO TWO COMPLETE PASSES 




/WRITE LAST 

REVERSE 

BLOCK NUMBER GOING FORWARD 

1633 

1161 

TAD 

DT0210 

/FORWARD, SEARCH, 60 

1634 

1030 

TAD 

OTA 

/ADD IN THE DTA 

1635 

6766 

OTOX 


/CLEAR STATUS "A" AND RELOAD 

1636 

1036 

TAD 

Cl 

/PHASE 1 ERROR 

163? 

3032 

OCA 

PHASE 

/FOR ERROR ROUTINE 


/WAIT HERE FOR OECTAPE FLAG. CHECK ALSO FOR ERRORS 

/set block number (reverse) into form 


1640 

1026 


TAD 

BLOCKS 

/INTO AC WITH LAST BLOCK NUMBER 

1641 

4524 


JMS I 

MESS 

/CONVERT BLOCK NUMBER FOR TAPE 



/INTERRUPTED? 

ERROR? 


1642 

6772 


dtrb 


/READ STATUS "B" 

1643 

7010 


RAR 


/DECTAPE FLAG TO LINK 

1644 

7620 


SNL 

CLA 

/flag set? 

1645 

5242 


JMP 

,“3 

/NO! CONTINUE WAIT 



/block 

POUND, 

switch to 

READ DATA WITH WC ONE LESS THAN 



/number 

OF WORDS TO BE 

READ. REAO TILL WC»0 

1646 

1156 


TAD 

DT0130 

/TO SET STATUS "A" INTO 

1647 

6764 

RCYBR. 

DTXA 


/THE REAO DAT* MODE 

1653 

7240 


CLA 

CMA 

/SUBTRACT 1 FROM TOTAL 

1651 

1033 


TAD 

total 

/GIVING TOTAL-t (HO HO) 

1652 

7040 


CHA 


/INVERT FOR 1 sz 

1653 

3534 


OCA I 

wc 

/SET WC 

1654 

1041 


TAD 

04 

/NOP 

1655 

3512 


DCA I 

CA 

/JIMMIED TO DO NOTHING 

1656 

6772 


dtrb 


/READ "B» REGISTER 

1657 

0062 


AND 

C1000 

/ISOLATE END ZONE BIT 

1660 

7640 


Si A 

CLA 

/ENO ZONE? 

1661 

5701 


JMP I 

GBBLK 

/YESj GO AND WRITE THE BLOCK NUMBERS 

1662 

1534 


tad l 

WC 

/WAIT TILL WORD COUNT ZERO 

1663 

7640 


SiA 

CLA 

/EQUAL to zero? 

1664 

5254 


JMP 

,-10 

/NO: LOOP AGAIN 



/OEC-0I-EUFB POP-8 OECTAPE FORMATTER PAL10/3 V141 15-MAY-70 16|03 PAGE 34 

/END Of block found, write junk and reverse block number 


1465 

1102 

tad 

M14 

/12 WORDS TO BE WRITTEN 

1664 

3534 

OCA I 

WC 

/TO WORD COUNT REG, 

1667 

1117 

TAD 

FORMS 

/FORM TO CA 

167® 

3512 

OCA I 

CA 

/OF NUMBERING FORM 

1671 

1154 

tad 

DT0070 

/SWITCH TO WRITE ALL 

1672 

6764 

DTxA 


/MODE. 



/LOOK FOR THE 

OECTAPE 

flag indicating another recycle 

1673 

6772 

otrb 


/NO: GET "9" AGAIN 

1674 

7®10 

rar 


/FLAG TO LINK 

1675 

7620 

snl 

CLA 

/FLAG SET! 

1676 

5273 

JMp 

»"3 

/NO: BE PATIENT. HAST NOT. 

1677 

1154 

tad 

D70070 

/TO SWITCH TO READ DATA 

1700 

5247 

JMP 

RCYBR 


1701 

2000 

GDBLK > OOBLK 



1702 

1400 

domark, stmk 

/POINTER TO START OF MARK ROUTINE 


/SUBROUTINE TO GET NEXT OTA UNIT * FROM INPUT LIST OR 

/RECYCLE To first unit if all have been processed up to 

/THIS POINT—CALL SEQUENCE 
/ JMJ NUDTA /CALL THE ROUTINE 

/ IRETNU /RETURNS HERE IF MORE DTAS TO PROCESS 

/ <RETN«) /RETURNS HERE IF END OF LIST 

/END OF LIST MEANS RESET TO FIRST AND RETURN TO (RETN2) 
/RETURN IS WITH DTA StT TO NEW VALUE AND AC*0 


1703 

0030 

NUDTA' 

0 




1704 

1724 


TAD 

I 

LSTPT 

/GIT CURRENT VALUE OF DTA LIST PTR 

1705 

9323 


DCA 


TBUFPT 

/STORE IT AS T|M, BUF. PTR. 

1706 

1723 


TAD 

1 

TBUFPT 

/G|T A DTA » FROM THE LIST 

1707 

0045 


AND 


00007 

/ISOLATE LOW ORDER DIGIT 

1710 

7640 


S2A 


CLA 

/IS IT 7777! 

1711 

5316 


JMP 


lstend 

/YES 1 END OF LIST 

1712 

1723 


TAD 

I 

TBUFPT 

/NO: GET IT BACK 

1713 

3330 


DCA 


DTA 

/AND STORE AS NEW DTA * 

1714 

2724 


IS2 

1 

LSTPT 

/INCREMENT list pointer 

1715 

5703 


JMP 

1 

NUDTA 

/RETURN 



/COMES 

HERE 

AT 

END OF 

LIST TO RESET pTRS AND RETN TO CALL+3 

1716 

2303 

LSTENO, 

I si 


NUDTA 

/INCREMENT RETURN POINTER 

17i7 

1722 


TAD 

I 

STRTPT 

/GET ADR. OF START OF LIST 

1720 

3724 


DCA 

I 

LSTPT 

/STORE TO RE-INITIALISE LIST PTR, 

1721 

5304 


JMP 


NUDTA+l /go get FIRST OTA « AND RETURN 

1722 

1176 

STRTPT, 

DBUFAD 

/POINTER TO START OF DTA LIST 

1723 

000 3 

tbufpt, 

0 


/TEM ® 

STORAGE FOR BUF. PTR. 

1724 

1175 

lstpt. 

DBUFPT 

/POINTER TO CURRENT VALUE OF DTA LIST PTR 

1725 

0003 

dtabuf, 

0 


/start 

OF DTA * LIST " MAX. 9 WORDS 



/DEC-08-EUFS 


PDP-g DECTAPE FORMATTER PAL10/3 Vl«l 


15-MAY-70 


16103 PACE 35 


2000 «2000 

/GO INTO SEARCH IN REVERSE NODE LOOKING FOR 

/the last block number, when found, sync the system 

/and WRITE all DATA AND BLOCK NUMBERS 


2000 

4527 

DOBLK» 

UMS 

I 

TURN 

/INTO REVERSE AND SEARCH MOOE 

2001 

1326 


TAO 


BLOCKS 

/TO SET UP 

2002 

3327 


DCA 


blocka 

/FOR block decrementing 

2003 

1337 


TAD 


C2 

/PHASE 2 ERROR 

2004 

3332 


DCA 


PHASE 

/FOR ERROR ROUTINE 



/LOOK FOR INTERRUPT 

INDICATING block number 

2005 

4533 


JMS 

i 

WAIT 

/FOR DECTAPE FLAG 



/SWITCH 

TO WR! 

T£ ALL 

, SYSTEM NOW IN SYNC 

2006 

1157 


TAO 


DT0140 

/SWITCH TO WRITE ALL 

2007 

6 764 


QTXA 



/EXECUTE ORDER 

2010 

1265 

NEXT8N, 

TAO 


ADF3 

/ADDRESS OF FIRST 3 WORDS INCLUDING 

2011 

3512 


DCA 

I 

CA 

/THE FORWARD CHECKSUM TO BE WRITTEN 

2012 

1376 


TAD 


M3 

/NUMBER OF WORDS TO 8E WRITTEN 

2013 

3534 


OCA 

I 

wc 

/TO WORD COUNT 

2014 

4234 


UMS 


CE2N 

/CHECK FOR END ZONE 

2015 

1534 


TAD 

I 

wc 

/check for wc*0 

2016 

7643 


SZA 


CLA 

/ = 0? 

20i7 

5214 


UMP 


.-3 

/NOPE 1 TRY AGAIN 

2022 

6764 


DTXA 



/YUPI CLEAR THE FLAG 



/fcRITE 

data 

TRACK, REMEMBER CORRECT DATA IS BEING WRITTEN 

2021 

1333 


TAO 


TOTAL 

/ONE FROM TOTAL NUMBER 

2022 

7341 


CI A 



/OF WORDS FOR COUNTING 

2023 

3534 


DCA 

I 

WC 

/DAT* WORDS WRITTEN 

2024 

1271 


TAO 


AD7777 

/ADDRESS OF SEVENS 

2025 

3512 


DCA 

I 

CA 

/data TO BE WRITTEN 


/MONITOR WORD COUNT FOR A ZERO READING 

/SOME OF THIS Time IS used to set the next 

/BLOCK NUMBER INTO THE FORM. 


/current block NUMBER 

/CONVERT INTO FORM 

/TO DECREMENT 

/THE BLOCK COUNT 

/DOWN TO ZERO 

/BYPASS FOLLOWING ROUTINE 


/READ STATUS "B" 

/isolate end zone 

/HAVE IT? 

/NOT EZ, RETURN 
/COMPLETED 


2026 

1027 


TAO 

blocka 

2027 

4524 


UMS I 

mess 

2033 

7240 


CLA 

cma 

2031 

1027 


TAD 

blocka 

2032 

3'327 


DCA 

BLOCKA 

2033 

5242 


JMp 

CEZB 



/CHECK 

FOR END 

I ZONE 

2034 

0000 

CEZN, 

0 


2035 

6772 


dtrb 


2036 

0062 


AND 

C1000 

2037 

7650 


SNA 

CLA 

2040 

5634 


JMP I 

CEZN 

2041 

5664 


JMP I 

GDBN 



/DEC-0S-EUFB 


pdp-8 dectape formatter palib/3 viai 


13-MAY-70 
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/check 

HERE 

ALSO TO 

SEE 

if end zone, indicating 



/that 

THE LAST BLOCK 

HAS 

; been written 

2042 

4234 

cezb. 

JMS 

CE2N 


/END ZONE7 



/LOOK 

FOR WORD COUNT 

AS 

being equal to zero 

2043 

1534 


TAD 

I wc 


/WC TO c (AC) 

2044 

7650 


SNA 

CLA 


/END OF DATA WRITE? 

2045 

5251 


JMP 

WBN 


/YESI GO TO WRITE BLOCK NUMBER 

2346 

1271 


tad 

AD7777 


/RESET CURRENT ADDRESS COUNT 

2047 

3512 


dca 

I CA 


/DON'T LET THE CA ADVANCE TO 

2950 

5242 


JMP 

CE2B 


/MUCH 


/DATA HAS BEEN WRITTEN, NOW WRITE REVERSE 

/block number, forward block number, and reverse 

/CHECKSUM. (12 WORDS) 


2051 

6764 

WBN, 

DTXA 


/CLEAR OUT DECTAPE FLAG 


2052 

1132 


tad 

M14 

/WILL WRITE 12 WORDS 


2053 

3534 


DCA I 

WC 

/FOR THIS BIT 


205 4 

1116 


tad 

FORMA 

/FROM A FORM CONTAINING 


2355 

3512 


DCA I 

CA 

/block numbers 




/WAIT FOR ENO 




2056 

4234 


JMS 

CEHN 

/END ZONE? 


2 05 7 

1534 


TAD I 

wc 

/NO! SEE IF DONE THE WRITE 


2060 

7643 


SZA 

CLA 

/DONE YET ? 


2061 

5256 


JMP 

i -3 

/NO: PATIENCE IS A VIRTUE???? 


2062 

6764 


DTXA 


/RESET THE CURRENT FLAG 


2353 

5213 


JMP 

nextbn 

/YESI GO RECYCLE COMPLETLY 


2064 

2 233 

gobn. 

DBN 






/ first 

3 WORDS TO BE 

WRITTEN 


2065 

2365 

ADF3. 

1 




2066 

1*5003 


0000 




2067 

0000 


0000 




2070 

0377 


0077 






/DATA TO BE WRITTEN ON 

tape (Reverse) 


2071 

2371 

AD7777, 

* 




2072 

7777 


7777 




2373 

7777 


7777 




2374 

7777 


7777 




2075 

7777 


7777 






/CHECK 

IP ALL 

dtas are 

DONE BEFORE RESTARTING 


2076 

4731 

setdta, 

JMS I 

GOT A 

/ALL DTAS DONE? 


2077 

5702 


JMP I 

CONTNU 

/NO: BACK TO WRITE BLOCK *S ON 

NIX T 

2100 

5515 


JMP I 

IT 

/YtSl GO ASK "DIRECT?" 


2101 

1703 

COTA, 

nudta 

/POINTER TO SUBR FOR GETTING NEXT UNIT 

* 

2102 

1622 

cqntnu* 

PSeR 

/POINTER TO START OF BLOCK * WRITE ROUTINE 



/DEC-08-EUFB 


pop-e dectape formatter palib/s viai 


15-MAY-70 


16103 PAGE 37 


2100 e2200 

/VERIFY the tape AS BEING written correctly 

/WITH DATA AND SLOCK NUMBERS. THE INFORMATION WRITTEN 

/was written in such a way as to be correct 

/UPON READING IT SACK 


/TURN TAPE AND HAVE IT GOING FORWARD 


2200 

1310 

obn, 

tad 

182 V 

/RESET increment 

2201 

3250 


OCA 

V 132 

/BLOCK NUMBERS FORWARD 

2202 

3114 


OCA 

reoN 

/WILL BE IEROS FORWARD 

2203 

3020 


OCA 

wi 

/FIRST BLOCK NUMBER FORWARD 

2204 

1047 


tad 

S0400 

/Turn to go forward 

2205 

4527 

dbnaux 

, JMS 

l TURN 


2206 

1040 


tad 

cs 

/ERROR IN PHASE 3 

2207 

3032 


OCA 

PHASE 

/FOR ERROR ROUTINE 



/SET SOME OF 

THE CONTROL REGS 

2210 

3534 

DAB, 

OCA 

I HO 

/WORD COUNT DON'T CARE 

2211 

1166 


TAD 

A08A 

/SOME WHERE UP ABOVE 

2212 

3512 


OCA 

I CA 

/TO GET BLOCK NUMBERS 



/WAIT 

FOR INTERRUPT 


2213 

4533 


JMS 

I hait 

/INTERRUPT 

22i4 

1020 


tad 

HI 

/FIRST OR NEXT BLOCK NUMBER 

2215 

7041 


CIA 


/TO COMPARE 

2216 

1566 


tad 

I AD8A 

/GET THE BLOCK NUMBER 

2217 

7640 


82 A 

CLA 

/COMPARE OK? 

2220 

5312 


JMP 

BLKER2 

/BLOCK ERROR FOUND 



/block 

compares, now 

CHECK DATA 

2221 

1152 


tad 

DT0030 

/to switch into read 

2222 

6764 


QTxA 


/data mode 

2223 

3534 


OCA 

I HO 

/DON'T CARE ABOUT THE WC 

2224 

1167 

CTST. 

tad 

ABWA 

/FOR COMPARING 

2225 

3512 


OCA 

I CA 

/FROM TAPE 



/EVERY 

time 

THE WORD 

COUNT MOVES 



/A DATA TRANSFERE HAS BEEN COMPLETED. 



/MAKE 

SURE THAT THE 

INFORMATION IS OK 

2226 

1534 


TAQ 

l wc 

/GET WORD COUNT 

2227 

7650 


SNA 

CLA 

/STILL AT IERO? 

2230 

5237 


JMP 

CEFR 

/YESI SEE IF AT END 

2231 

1114 


tad 

FCON 

/NO! SEE IF DATA 

2232 

7041 


CIA 


/IS SAME as written 

2233 

1970 


TAD 

I AOWAB 

/RECEIVED DATA 

2234 

7640 


S?A 

CLA 

/SAME? 

2235 

5342 


JMP 

OTAR 

/data error found 

2236 

3534 


DCA 

I WC 

/YESI RESET uORD COUNT 



/OEC-0B-EUFB PDP-8 OECTAPE FORMATTER PAL10/3 V141 13-MAY-70 1*103 PAGE 31 

/CHECK FOR OECTAPE FLAG INDICATING ENO OF 
/BLOCK OR ERROR 


2237 

6772 

CEFR, 

DTRB 


/READ "B" REGISTER 

2240 

7510 


SPA 


/ERROR? 

2241 

5361 


JMP 

RARIR 

/PARjTY ERROR# I GUESS 



/NO ERR0R> ENO OF BLOCK? 

2242 

7010 


rar 


/FLAG TO THE LINK 

2243 

7620 


SNl 

CLA 

/END? 

2244 

3224 


JMP 

CTST 

/NO 1 CONTINUE CHECKING 

2245 

1152 


tad 

DT0030 

/clear DECTAPE FLAG 

2246 

6764 


DTXA 


/AND RETURN TO SEARCH 



/end 

OF BLOCK 

. SEE IF 

ENO OF TAPE 

2247 

1020 


TAD 

HI 

/BLOCK NUMBER JUST TESTED 

2230 

£020 

VIS2, 

1 SI 

HI 

/♦I OR -1 TO BLOCK COUNT 

2251 

7410 


SKR 



2252 

7402 


HLT 


/ABSOLUTE PANIC 

2233 

7041 


CIA 


/TO BE COMPARED WITH 

2254 

1026 


TAD 

blocks 

/TOTAL BLOCKS 

2255 

?640 


Si A 

CLA 

/LAST? 

2256 

5210 


JMP 

DAB 

/NO. DO ANOTHER BLOCK 



/HERE 

PUT IN 

THE REVERSE CHECK 

2257 

6771 

DDSF. 

PTSF 


/WA11 FOR ANY FLAG TO APPEAR 

2260 

5257 


JMP 

r"l 

/NOT YET 

2261 

7300 


CLA 

CLL 

/RID AC OF GARBAGE 

2262 

6772 


DTRB 


/READ THE "B» REGISTER 

2263 

0062 


AND 

C1000 

/BETTER BE ENO ZONE 

2264 

7650 


SNA 

CLA 

/IS IT? 

2265 

5363 


JMP 

LNE 

/LAST INTERRUPT NOT ENO ZONE 

2266 

6766 


DTCX 


/YUPI A OK 



/DEC-00-EUF s 


pop-8 oectape formatter palib/3 viai 


15-MAY-70 


16103 RASE 39 


/BLOCK NUMBERS AND DATA HAVE BEEN CHECKED FORWARD 
/and are ok. USING the above ROUTINE FOR checking 
/RESET A Few things and check in reverse 

/was COMPLETION FOUND FORWARD? IF SO GO CHECK 

/IN REVERSE I IF NOT GO SEE IF ALL TAPES HAVE BEEN CHECKED. 


2267 

1114 


tad 

F CON 

/IF 0'S. IT WAS FWD 


2270 

7640 


S2a 

CLA 

/FWD? 


2271 

5711 


JMP I 

FINCHK 

/N0: REVERSE-SEE IF ALL OTAS 

DONE 



/reset 

THE ABOVE ROUTINE 

: TO READ IN REVERSE 


2272 

704? 


CM A 


/data will be as written 


2273 

3114 


DC A 

FCON 

/ I » E , » 7777 9 S 


227 A 

1301 


TAD 

S JMP 

/INSTEAD OF INCREMENTING 


2275 

325? 


dca 

VISH 

/WE WILL DECREMENT BLOCK NUMBERS 

2276 

1026 


TAO 

blocks 

/STARTING with The highest 


2277 

3020 


DCA 

W1 

/AND WILL WORK To 2ER0 


2300 

5205 


JMP 

dbnaux 

/all set, travel onwaro 




/RETURN 

HERE 

AFTER EACH 

BLOCK FOR CHECKING WHEN LAST 

BLOCK 



/HAS ben processed???????????? 


2331 

5302 

S JMP , 

JMP 

9*1 



2332 

745? 


SNA 


/IF AC * 0, WE ARE OONE 


2303 

5257 


JMP 

ODSF 

/AND NEXT FLAG SHOULD BE END 

20NE 

230 4 

7041 


CIA 


/OTHERWISE, SUBTRACT ONE FROM 


2305 

704? 


CMa 


/BLOCKS GIVING BlOCKS-1. 

? 

2306 

302 ’ 


DCA 

W1 

/NOT DONE 


23 0 7 

521 '• 


JMp 

dab 

/SO DO ANOTHER block 


2310 

2 32 1 

ISHVa 

IS2 

W1 

/VARIABLE TAG 


2311 

2076 

finchk, 

SETDTA 






/DEC-08-EUFB 


PDP-8 DECTAPE FORMATTER 
/BLOCK ERROR FOUND 


2312 

1030 

BLKER2, 

TAD 

OTA 

2313 

6766 


DTCX 


2314 

1566 


TAD I 

ADBA 

2315 

453:5 


JMS I 

TYOCT 

2316 

4331 


JMS 

tysb 

231? 

102 5 


tad 

Wl 

2320 

453" 


JMS I 

TYOCT 

2321 

4531 


JMS I 

type 

2322 

4002 


4002 

/ B 

2323 

1413 


1413 

7LK 

2324 

4005 


4005 

/ E 

2325 

2243 


2243 

/R CR 

2326 

4 500/ 


4500 

/lf*end 

2327 

5 7 35 

DBER 2> 

JMR I 

. *1 

2330 

9725 


2COM 




/COMMON 

ROUTINE 

2331 

0 0 0 0 

Tv SR, 

0 


2332 

4531 


JMS l 

type 

2333 

4023 


4023 

/ s 

2334 

1017 


1017 

/HO 

2335 

2514 


2514 

/UL 

233 6 

1-4 4 ; 


0440 

/D 

2337 

0205 


0205 

/BE 

2343 

4 00 0 


4000 

/ 0 

2341 

5731 


JMP I 

tysb 


/DATA ERROR 


2342 

1030 

D " AR , 

tad 

dta 

2343 

6766 


DTCX 


2344 

1567 


TAD 

I ADWA 

2345 

4530 


JMS 

I TYOCT 

2346 

4331 


JMS 

TYSB 

2347 

1114 


TAD 

FCON 

2350 

4530 


JMS 

I TYOCT 

2351 

4531 


JMS 

i type 

2352 

4004 


4004 

/D 

2353 

0-124 


0124 

/AT 

2354 

0l4~ 


0140 

/A 

2355 

0522 


0522 

/ER 

2356 

4543 


4543 

/CR*LF 

235 7 

0C0 7 


0000 

/end 

236 4 

5327 


JMR 

dberh 


PAL10/3 VlAl 


15-MAY’70 


16i03 RAGE ^0 


/TO RESET TAPE 
/MOTION 

/GET SAD SLOCK NUMBER 

/and type it out 

/TYPE "SHOULD BE" 
/GOOD BLOCK NUMBER 
/type it out 


/TO STOP tape 
/MOTION 

/GET THE BAD WORD 

/TYPE "SHOULO BE" 
/GOOD WORD 
/TYPE IT OUT 



/OEC-0B-EUFB 


pdp -0 dectape formatter pahb/ 3 vi4i 
/parity error founo 


15-MAY-70 


16103 RASE 41 


2361 5762 PARIR. JMP I ,*1 

2362 0642 ERROR /MAIN ERROR ROUTINE 

/LAST INTERRUPT WAS NOT END ZONE 


2363 

4531 

INE f 

JMS I 

type 

2364 

1401 


1401 

/LA 

2365 

2324 


2324 

/ST 

2366 

4011 


4011 

/ I 

2367 

1624 


1624 

/NT 

2370 

4016 


4016 

/ N 

2371 

1724 


1724 

/OT 

2372 

4005 


4005 

/ E 

2373 

1724 


1724 

/OT 

2374 

4345 


4345 

/LF*CR 

2375 

0000 


0000 

/END 

2376 

5327 


JMP 

DBER1 



/OEC-0I-EUFB 


PDP-8 DECTaPE FORMATTER PAL10/3 V141 


15-MAY-70 


16|03 PAGE 40 


0400 *2400 

/ type out the dta unit number and the first 12 block 
/numbers IN EITHER direction, if rdr, in reverse 
/IF RDF, type them out going in the forward 
/direction FROM the BEGINING OF TAPE 


2400 

1047 

rdfa, 

tad 

C0400 

/DIRECTION FOR TURNING 

2401 

3251 


dca 

SAVEIT 

/STORE DIRECTION FOR NEXT DTA Ul 

2402 

1251 


TAD 

SAVE I T 

/GET DIRECTION FOR TURNING 

2403 

4527 


JMS I 

TURN 

/AROUND 

2404 

1102 


tad 

M14 

/READ 12 BLOCK 

2405 

3022 


DCA 

M3 

/COUNTER 

2406 

1110 


TAO 

badd 

/ADDRESS OF BUFFER 

2407 

3011 


DCA 

X2 

/TO AUTO INDEX 2 

2410 

1107 


TAO 

ADW3 

/ADDRESS OF w2 

2411 

3512 


OCA I 

CA 

/FOR DATA XFER 

2412 

4533 


JMS I 

wait 

/FOR BLOCK INTERRUPT 

2413 

1021 


tad 

W2 

/BLOCK NUMBER 

2414 

3411 


DCA I 

X2 

/STORE BLOCK NUMBER 

2415 

2022 


i sa 

W3 

/TOTAL • 127 

2416 

5212 


JMP 

0 "4 

/NO! GRAB NEXT 

2417 

1030 


TAO 

OTA 

/KILL TAPE MOTION 

2420 

6766 


OTCX 


/HERE 



/TYPE 

OUT BLOCK NUMBERS 

AND DTA UNIT * 

2421 

4531 


JMS l 

TYPE 

/TYPE "DTA" 

2422 

0424 


0424 

/DT 


2423 

0140 


0140 

/A 


2424 

0000 


0000 

/END 


2425 

1030 


TAO 

DTA 

/GET UNIT * 

2426 

4530 


JMS I 

TYOCT 

/AND TYPE IT OUT 

2427 

4531 


JMS I 

TYPE 


2430 

4345 


4345 

/CR4LF 


2431 

0000 


0000 

/END 


2432 

1102 


TAO 

M14 

/WILL TYPE ALL 

2433 

3020 


OCA 

W1 

/TWELVE WORDS 

2434 

1110 


TAD 

BADD 

/ADDRESS OF BLOCK 

2435 

3011 


DCA 

X2 

/NUMBERS TO INDEX 2 

2436 

1411 


TAO I 

X2 

/FIRST OR next BLOCK 

2437 

4530 


JMS I 

TYOCT 

/TYPE IT OUT 

2440 

4531 


JMS I 

TYPE 

/CR AND LINE FEED 

2441 

4345 


4345 

/CR*LF 


2442 

0000 


0000 



2443 

2020 


IS2 

Ml 

/COMPLETE? 

2444 

5236 


JMP 

1 "6 

/NO 

2445 

4652 


JMS I 

NEMDTA 

/YESI ANY MORE DTAS7 

2446 

5202 


JMP 

RDF A*2 

/yesi go get block #s 

2447 

5515 


JMP I 

IT 

/NO! Go ask FOR "DIRECT?" 

2450 

5201 

RDR, 

JMP 

RDFAU 

/OTHER DIRECTION 

2451 

0000 

SAVE I T 

, * 

/TEM, STORAGE FOR DIRECTION 

2452 

1703 

NEWDTA 

, NUDTA 

/POINTER TO SUBR, TO GET A NEW DTA UNIT 



/DEC-08-EUFR 


PDP-8 DECTaPE FORMATTER PAL10/3 V141 


15-MAY-70 


16)03 PACE 43 


/INPUT BUFFER FOR THE TELETYPE, 

/NOTE this MUST BE AT THE END OF THE PROGRAM 

2453 BUFFER. 0000 

$ 



/OEC-00-EUFB 


PDP-8 DECTaPE FORMATTER PAL10/3 V141 


13-MAY-70 


16|03 PAGE 43.8 


V2 

0534 

V3 

0540 

V4 

0541 

VALCHK 

1023 

vari 

0034 

V AR2 

0035 

VISE 

2250 

HI 

0020 

W2 

0021 

y 3 

0022 

W4 

0023 

N5 

0024 

W6 

0025 

WAIT 

0133 

WBN 

2051 

wc 

0134 

WDZ 

1435 

WEZF 

1501 

WLMRF 

1526 

Xl 

0010 

X2 

0011 

ICOM 

0725 

2 EOT 

0661 

zform 

0757 

ZWKTK 

0674 

ZPAR 

0704 

zsel 

0712 

HIM 

0720 


ERRORS DETECTEDl 0 
LINKS GENERATEOI 0 
RUN-TIME! 16 SECONDS 
2K CORE USED 



/DEC-0 


■EUFB 


PDP-8 dectape 1 

FORMATTER 

PAH0/3 V141 

19-MAY-70 

16 103 

PAGE 43-1 

AD7777 

2071 

CERR 

0330 

D2 

1535 

NEXTBN 

2010 

adba 

0166 

CEZ 

1407 

error 

0642 

NTyRTN 

0263 

ADF3 

2065 

CEHB 

2042 

ERX 

0031 

NUDTA 

1703 

ADW2 

0106 

CE2N 

2034 

E2M 

1934 

OKCR 

1044 

ADW3 

0107 

C I 2 

1371 

F10BAK 

1372 

PARIR 

2361 

adwa 

£167 

COMCHK 

1196 

F10PAT 

1360 

pform 

0773 

adwab 

0170 

comctr 

1173 

F10RTN 

1306 

PHASE 

0032 

BADD 

£113 

compar 

0113 

FBM 

1322 

PSER 

1622 

bfr 

£111 

compre 

0310 

FCON 

0114 

Q1 

0400 

BINCON 

0171 

CONC 

0543 

FE2 

1341 

Q2 

0410 

blkerh 

2312 

CONTNU 

2102 

FINCHK 

2311 

Q3 

0422 

blockA 

0027 

CRCHK 

1015 

FORM 

0327 

04 

0434 

BLOCKS 

0026 

CRCOD 

0072 

FORM10 

1375 

QU 

0143 

buffer 

2453 

CRFLAG 

1146 

FORMA 

0116 

QU1 

0120 

C £' 00 7 

0045 

CTST 

2224 

FORMS 

0117 

QU2 

0121 

C ' ’ 017 

0042 

dab 

2210 

GD8LK 

1701 

QU3 

0122 

C'030 

0046 

0BER2 

2327 

GDBN 

2064 

QU4 

0123 

C 070 

0043 

DBn 

2200 

gdta 

2101 

QUX 

0447 

C '077 

£044 

dbnaux 

2205 

getdta 

1143 

rcybr 

1647 

C 432 

0047 

dbufad 

1176 

GR2 

1330 

RDF A 

2400 

C 720 

005^ 

dbufpt 

1175 

IBS 

1242 

RDR 

2430 

777 

0632 

dctr 

1174 

I BE 

1516 

REPEAT 

1147 

Cl 

0336 

DDSF 

2257 

INBLSY 

1424 

RERR 

0610 

C1000 

0 3 6 2 

D I V 3 

1244 

INIT 

1061 

REI 

1512 

Clltl 

1574 

DNC 

1203 

INIT1 

1055 

RSEND 

0135 

Cl 62 J 

£363 

dnum 

1177 

IS2V 

2310 

rstsm 

1393 

C 2 

0337 

DOBLK 

2000 

IT 

0115 

RSYC 

0966 

C20i 

0 3 5 2 

DOCOMP 

1164 

letk 

0073 

SAVE X T 

2451 . 

C203 

0 - 1 51 

DOMARK 

1702 

lfcod 

0074 

setdta 

2076 

C21 3 

C053 

QT0030 

0152 

LNE 

2363 

sjmp 

2301 * 

C 2 1 ? 

0253 

DT0060 

0153 

LSTEND 

1716 

SPCOD 

0105 

C 215 

t 254 

D T0070 

0154 

LSTPT 

1724 

STALL 

0600 

C245 

0255 

DT0100 

0155 

MX 4 

0102 

START 

1000 

C2.6 0 

£354 

DT0130 

0156 

M144 

0103 

STMK 

1400 

C 2 61 

0355 

D T0140 

0157 

M2 

0075 

STRTPT 

1722 

C267 

0 0 56 

DT 0200 

0160 

M3 

0076 

STX 

0126 

C 2 7 ■? 

£757 

DT0210 

0161 

M300 

0104 

TBUFPT 

1723 

C 2 7 1 

0F63 

DT0360 

0162 

M4 

0077 

TFORM 

0737 

C 2 7 7 

03 61 

DT0510 

0163 

M 4 0 

0251 

TOTAL 

0033 

C3 

£3 4 3 

DT0600 

0164 

M6 

0100 

trn 

0613 

C3 4 0 

£252 

DT0610 

0165 

M6X7 

1573 

TURN 

0127 

C 4 

£741 

dta 

0030 

M7 

0101 

TW1 

0374 

C 6 0 6 0 

0375 

dtabuf 

1725 

MARK 

1200 

TYCT 

0334 

C7000 

£ 3 6 4 

dtar 

2342 

MES 

0454 

TYCT1 

0367 

C777C. 

£0 65 

DTCA 

6762 

mesage 

0200 

TYOCT 

0130 

C 7 7 1 4 

£ • 1 6 6 

D T C X 

6766 

MESS 

0124 

type 

0131 

C 7 7 61 

0 3 6 7 

DTlB 

6774 

MINI 

0633 

TYPECH 

0220 

C 7 7 7 2 

0V-7 

dtra 

6761 

msrght 

0217 

TYPIN 

0132 

C 7 7 7 5 

0771 

dtrb 

6772 

mtp 

0244 

TYPN 

0256 

CA 

k 112 

dtrk 

1447 

MWAIT 

0125 

tyqu 

1003 

COTRO 

1357 

DTSF 

6771 

MWTM 

1600 

TYSB 

2331 

cefr 

2237 

D T X A 

6764 

newdta 

2452 

VI 

0533 
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Tech Tip 

Number TC01-TT-4 

Jg_ 

74 


Cross Reference 
TU55-TT-7 


The program TC01-TU5S Dectape Formatter, DEC-0 8-EUFB will write the 
correct mark track and timing track on the dect apes first 
specified by the user. However, following the statement "set 
switch to normal" and after the user resets the switch and types 
carriage return, the first dectape specified will go in reverse 
for some time and then switch to the forward direction writing 
the last reverse block number. At this point in time due to the 
current address not getting reset by the program after writing 
the Forward End Zone during the write timing and mark track pass 
location 1557 gets modified from 0040 to 0440, Location 1557 
contains parts of the code for writing the Forward End Zone, there¬ 
fore, any new dectapes puts on the drives after this will not have 
the correct forward end zone written on the mark track. 

The error can be detected by the TD8- E Diagnostic, (Maindec - 0 8-DHTDA) 
routine for checking the mark track and the routine to search and 
find all block numbers. 

To avoid this the following change can be made: 


ocat ion 

Old 

New 

1633 

1161 

4360 

1760 


0000 

1761 


1166 

1762 


3512 

1763 


1161 

1764 


5760 


DEC-08-EUFB has been corrected and resubmitted to the Program Library 
as DEC-08-UDTFA-A. 
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